Shapes.AddCurve (Excel)

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

SafeArrayOfPoints: 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 Bezier. 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.


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