Shapes.AddCurve (Excel)

Retorna um objeto Shape que representa uma curva de Bézier em uma planilha.

SafeArrayOfPoints: Uma matriz de pares coordenados que especifica os vértices e pontos de controle da curva. O primeiro ponto que você especificar é o vértice inicial e os dois pontos seguintes são pontos de controle do primeiro segmento de Bézier. A seguir, para cada segmento adicional da curva, você deve especificar um vértice e dois pontos de controle. O último ponto que você especificar é o vértice final da curva. Observe que você deverá especificar sempre 3n + 1 pontos, onde n é o número de segmentos da 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