Compartilhar via


Propriedade Shape.Vertices (Word)

Retorna as coordenadas dos vértices (e pontos de controle para curvas Bézier) do desenho de forma livre especificado como uma série de pares de coordenadas. Somente leitura Variant.

Sintaxe

expressão. Vértices

expressão Obrigatório. Uma variável que representa um objeto Shape.

Comentários

Use a matriz retornada por essa propriedade como um argumento para o método AddCurve ou AddPolyLine .

A tabela a seguir mostra como a propriedade Vertices associa valores na matriz vertArray() às coordenadas dos vértices de um triângulo.

Elemento vertArray Contém
vertArray(1, 1) A distância horizontal do primeiro vértice até o lado esquerdo do documento.
vertArray(1, 2) A distância vertical do primeiro vértice até a parte superior do documento.
vertArray(2, 1) A distância horizontal do segundo vértice até o lado esquerdo do documento.
vertArray(2, 2) A distância vertical do segundo vértice até a parte superior do documento.
vertArray(3, 1) A distância horizontal do terceiro vértice até o lado esquerdo do documento.
vertArray(3, 2) A distância vertical do terceiro vértice até a parte superior do documento.

Exemplo

Este exemplo atribui as coordenadas do vértice da forma um no documento ativo a uma variável de matriz e exibe as coordenadas do primeiro vértice. A forma um deve ser um desenho de forma livre.

With ActiveDocument.Shapes(1) 
    vertArray = .Vertices 
    x1 = vertArray(1, 1) 
    y1 = vertArray(1, 2) 
    MsgBox "First vertex coordinates: " & x1 & ", " & y1 
End With

Este exemplo cria uma curva com a mesma descrição geométrica da forma um no documento ativo. O exemplo supõe que a primeira forma é uma curva de Bézier contendo 3n+1 vértices, onde n é o número de segmentos de curva.

With ActiveDocument.Shapes 
    .AddCurve .Item(1).Vertices, Selection.Range 
End With

Confira também

Objeto Shape

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.