Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
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. Variant de solo lectura.
Sintaxis
expresión. Vértices
expresión Variable que representa un objeto Shape.
Observaciones
Use la matriz devuelta por esta propiedad como argumento para los métodos AddCurve o AddPolyline .
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 en horizontal entre el primer vértice y la parte izquierda de la página. |
vertArray(1, 2) |
Distancia en vertical entre el primer vértice y la parte superior de la página. |
vertArray(2, 1) |
Distancia en horizontal entre el segundo vértice y la parte izquierda de la página. |
vertArray(2, 2) |
Distancia en vertical entre el segundo vértice y la parte superior de la página. |
vertArray(3, 1) |
Distancia en horizontal entre el tercer vértice y la parte izquierda de la página. |
vertArray(3, 2) |
Distancia en vertical entre el tercer vértice y la parte superior de la página. |
Ejemplo
En este ejemplo se asignan las coordenadas de vértice de la forma uno de la publicación activa a la variable vertArray()de matriz y se muestran las coordenadas del primer 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
En este ejemplo se crea una curva que tiene la misma descripción geométrica que la forma uno de la publicación activa. Para que funcione este ejemplo, la forma uno debe tener 3n+1 vértices, en donde n es un número entero mayor o igual a 1.
With ActiveDocument.Pages(1).Shapes
.AddCurve SafeArrayOfPoints:=.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.