Método Shapes.AddCurve (PowerPoint)
Crea una curva de Bézier. Devuelve un objeto Shape que representa la nueva curva.
Sintaxis
expresión. AddCurve (SafeArrayOfPoints)
expresión Variable que representa un objeto Shapes.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| SafeArrayOfPoints | Obligatorio | Variant | Matriz de pares de coordenadas que especifica los vértices y los puntos de control de la curva. El primer punto que especifica es el vértice inicial, y los siguientes dos puntos son los puntos de control del primer segmento de la curva Bézier. A continuación, por cada segmento adicional de la curva, define un vértice y dos puntos de control. El último punto que especifica es el vértice final de la curva. Observe que debe especificar siempre 3n + 1 puntos, donde n es el número de segmentos de la curva. |
Valor devuelto
Forma
Ejemplo
En el ejemplo siguiente se agrega una curva de Bézier de dos segmentos a myDocument.
Dim pts(1 To 7, 1 To 2) As Single
pts(1, 1) = 0
pts(1, 2) = 0
pts(2, 1) = 72
pts(2, 2) = 72
pts(3, 1) = 100
pts(3, 2) = 40
pts(4, 1) = 20
pts(4, 2) = 50
pts(5, 1) = 90
pts(5, 2) = 120
pts(6, 1) = 60
pts(6, 2) = 30
pts(7, 1) = 150
pts(7, 2) = 90
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddCurve SafeArrayOfPoints:=pts
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.