Shapes.AddCurve (Excel)

Gibt ein Shape -Objekt zurück, das eine Bézier-Kurve in einem Arbeitsblatt darstellt.

AddCurve (SafeArrayOfPoints)

SafeArrayOfPoints: Ein Array von Koordinatenpaaren, das Scheitelpunkte und Steuerpunkte der Kurve angibt.

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