Método Shapes.AddCurve (Excel)

Devuelve un objeto Shape que representa una curva bézier en una hoja de cálculo.

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 especifique es el vértice inicial y los dos puntos siguientes son puntos de control para el primer segmento 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 especifique 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 el ejemplo siguiente se agrega una curva 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 = Worksheets(1) 
myDocument.Shapes.AddCurve SafeArrayOfPoints:=pts

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.