Método Shapes.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 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

Shape

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

Objeto de la colección de formas

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.