Propriedade ShapeRange.Vertices (Excel)

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. Use a matriz retornada por essa propriedade como um argumento para o método AddCurve ou método AddPolyLine . Somente leitura Variant.

Sintaxe

expressão. Vértices

Expressão Uma variável que representa um objeto ShapeRange .

Comentários

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 até o lado esquerdo do documento
vertArray(1, 2)	A distância vertical do primeiro vértice até a extremidade 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 extremidade 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 extremidade superior do documento

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 = Worksheets(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 = Worksheets(1) 
With myDocument.Shapes 
 .AddCurve .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.