Propriedade ShapeRange.Vertices (PowerPoint)
Retorna as coordenadas dos vértices do desenho de forma livre especificado (e os pontos de controle das curvas de Bézier) como uma sequência de pares de coordenadas. Somente leitura.
Sintaxe
expressão. Vértices
Expressão Uma variável que representa um objeto ShapeRange .
Valor de retorno
Variant
Comentários
Use a matriz retornada por essa propriedade como um argumento para o método AddCurve ou método 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 VertArray | Contém |
|---|---|
VertArray(1, 1) |
A distância horizontal do primeiro vértice até o lado esquerdo do slide |
VertArray(1, 2) |
A distância vertical do primeiro vértice até a parte superior do slide |
VertArray(2, 1) |
A distância horizontal do segundo vértice até o lado esquerdo do slide |
VertArray(2, 2) |
A distância vertical do segundo vértice até a parte superior do slide |
VertArray(3, 1) |
A distância horizontal do terceiro vértice até o lado esquerdo do slide |
VertArray(3, 2) |
A distância vertical do terceiro vértice até a parte superior do slide |
Exemplo
Este exemplo atribui as coordenadas de vértice para a forma um no myDocument à variável vertArray() de matriz e exibe as coordenadas do primeiro vértice.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.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 que a forma um em myDocument. A forma um deve conter 3 n +1 vértices para que este exemplo tenha êxito.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
.AddCurve .Item(1).Vertices
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.