Propiedad ShapeRange.Vertices (PowerPoint)
Devuelve las coordenadas de los vértices del dibujo de forma libre especificado (y los puntos de control para curvas de Bézier) como una serie de pares de coordenadas. Solo lectura.
Sintaxis
expresión. Vértices
Expresión Variable que representa un objeto ShapeRange .
Valor devuelto
Variant
Comentarios
Use la matriz devuelta por esta propiedad como argumento para el método AddCurve o el método 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 | Contiene |
|---|---|
VertArray(1, 1) |
La distancia horizontal desde el primer vértice hasta el borde izquierdo de la diapositiva |
VertArray(1, 2) |
La distancia vertical desde el primer vértice hasta el borde superior de la diapositiva |
VertArray(2, 1) |
La distancia horizontal desde el segundo vértice hasta el borde izquierdo de la diapositiva |
VertArray(2, 2) |
La distancia vertical desde el segundo vértice hasta el borde superior de la diapositiva |
VertArray(3, 1) |
La distancia horizontal desde el tercer vértice hasta el borde izquierdo de la diapositiva |
VertArray(3, 2) |
La distancia vertical desde el tercer vértice hasta el borde superior de la diapositiva |
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 = 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
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 = ActivePresentation.Slides(1)
With myDocument.Shapes
.AddCurve .Item(1).Vertices
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.