Método CanvasShapes.AddCurve (Word)
Devuelve un objeto Shape que representa una curva bézier en un lienzo de dibujo.
Sintaxis
expresión. AddCurve (SafeArrayOfPoints)
expresión requerida. Variable que representa un objeto CanvasShapes .
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 siempre deben especificarse 3n+1 puntos, donde n es el número de segmentos de la curva. |
Ejemplo:
En este ejemplo se agrega una curva Bézier a un nuevo lienzo de dibujo.
Sub CanvasBezier()
Dim docNew As Document
Dim shpCanvas As Shape
Dim sngArray(1 To 7, 1 To 2) As Single
Set docNew = Documents.Add
'Create a new drawing canvas
Set shpCanvas = docNew.Shapes.AddCanvas(Left:=100, _
Top:=100, Width:=300, Height:=50)
sngArray(1, 1) = 0
sngArray(1, 2) = 0
sngArray(2, 1) = 50
sngArray(2, 2) = 50
sngArray(3, 1) = 100
sngArray(3, 2) = 0
sngArray(4, 1) = 150
sngArray(4, 2) = 50
sngArray(5, 1) = 200
sngArray(5, 2) = 0
sngArray(6, 1) = 250
sngArray(6, 2) = 50
sngArray(7, 1) = 300
sngArray(7, 2) = 0
'Add Bezier curve to drawing canvas
shpCanvas.CanvasItems.AddCurve _
SafeArrayOfPoints:=sngArray
End Sub
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.