Propiedad Shape.Vertices (Word)
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 requerida. Variable que representa un objeto Shape.
Comentarios
Use la matriz devuelta por esta propiedad como argumento para el método AddCurve o AddPolyLine .
En la tabla siguiente se 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 matrizVert | Contains |
---|---|
vertArray(1, 1) |
La distancia horizontal desde el primer vértice hasta el lado izquierdo del documento. |
vertArray(1, 2) |
La distancia vertical desde el primer vértice hasta la parte superior del documento. |
vertArray(2, 1) | La distancia horizontal desde el segundo vértice hasta el lado izquierdo del documento. |
vertArray(2, 2) |
La distancia vertical desde el segundo vértice hasta la parte superior del documento. |
vertArray(3, 1) |
La distancia horizontal desde el tercer vértice hasta el lado izquierdo del documento. |
vertArray(3, 2) |
La distancia vertical desde el tercer vértice hasta la parte superior del documento. |
Ejemplo:
En este ejemplo, se asignan las coordenadas de los vértices de la forma uno del documento activo a una variable de matriz y se muestran las coordenadas del primer vértice. La forma uno debe ser un dibujo de forma libre.
With ActiveDocument.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 con la misma descripción geométrica que la forma uno del documento activo. Se supone que la primera forma es una curva Bézier que contiene 3n+1 vértices, donde n es el número de segmentos de la curva.
With ActiveDocument.Shapes
.AddCurve .Item(1).Vertices, Selection.Range
End With
Consulte también
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de