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
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.