Propriedade Shape.Vertices (Publisher)
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 Uma variável que representa um objeto Shape .
Comentários
Use a matriz retornada por essa propriedade como um argumento para os métodos AddCurve ou AddPolyline .
A tabela a seguir mostra como a propriedade Vertices associa os valores de matriz vertArray() às coordenadas dos vértices de um triângulo.
| Elemento de vertArray | Contains |
|---|---|
vertArray(1, 1) |
A distância horizontal do primeiro vértice ao lado esquerdo da página. |
vertArray(1, 2) |
A distância vertical do primeiro vértice à parte superior da página. |
vertArray(2, 1) |
A distância horizontal do segundo vértice ao lado esquerdo da página. |
vertArray(2, 2) |
A distância vertical do segundo vértice à parte superior da página. |
vertArray(3, 1) |
A distância horizontal do terceiro vértice ao lado esquerdo da página. |
vertArray(3, 2) |
A distância vertical do terceiro vértice à parte superior da página. |
Exemplo
Este exemplo atribui as coordenadas de vértice para a forma um na publicação ativa à variável vertArray()de matriz e exibe as coordenadas do primeiro vértice.
Dim vertArray As Variant
Dim sngX1 As Single
Dim sngY1 As Single
With ActiveDocument.Pages(1).Shapes(1)
vertArray = .Vertices
sngX1 = vertArray(1, 1)
sngY1 = vertArray(1, 2)
MsgBox "First vertex coordinates: " & sngX1 & ", " & sngY1
End With
Este exemplo cria uma curva que tem a mesma descrição geométrica da forma um na publicação ativa. A forma um precisa conter 3n+1 vértices para que este exemplo funcione, onde n é um número inteiro maior ou igual a 1.
With ActiveDocument.Pages(1).Shapes
.AddCurve SafeArrayOfPoints:=.Item(1).Vertices
End With
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.