Propiedad ShapeRange.Vertices (Excel)
Devuelve las coordenadas de los vértices del dibujo de forma libre especificado, y los puntos de control de las curvas Bézier, como una serie de pares de coordenadas. Use la matriz devuelta por esta propiedad como argumento para el método AddCurve o el método AddPolyLine . Variant de solo lectura.
Sintaxis
expresión. Vértices
Expresión Variable que representa un objeto ShapeRange .
Comentarios
La tabla siguiente muestra cómo la propiedad Vertices asocia los valores de la matriz vertArray() con las coordenadas de los vértices de un triángulo.
| Elemento vertArray | Contains |
|---|---|
vertArray(1, 1) |
Distancia horizontal desde el primer vértice hasta el lado izquierdo del documento |
vertArray(1, 2) |
Distancia vertical desde el primer vértice hasta la parte superior del documento |
vertArray(2, 1) |
Distancia horizontal desde el segundo vértice hasta el lado izquierdo del documento |
vertArray(2, 2) |
Distancia vertical desde el segundo vértice hasta la parte superior del documento |
vertArray(3, 1) |
Distancia horizontal desde el tercer vértice hasta el lado izquierdo del documento |
vertArray(3, 2) |
Distancia vertical desde el tercer vértice hasta la parte superior del documento |
Ejemplo:
En este ejemplo se asignan las coordenadas de vértice de la forma uno de myDocument a la variable vertArray() de matriz y se muestran las coordenadas del primer 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
En este ejemplo se crea una curva que tiene la misma descripción geométrica que la forma uno de myDocument. La forma uno debe contener 3 n+1 vértices para que este ejemplo se realice correctamente.
Set myDocument = Worksheets(1)
With myDocument.Shapes
.AddCurve .Item(1).Vertices
End With
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.