Shapes.AddCurve-Methode (Excel)

Artikel
04/07/2023

Gibt ein Shape-Objekt zurück, das eine Bézierkurve auf einem Arbeitsblatt darstellt.

Syntax

Ausdruck. AddCurve (SafeArrayOfPoints)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SafeArrayOfPoints	Erforderlich	Variant	Ein Array von Koordinatenpaaren, das Scheitelpunkte und Steuerpunkte der Kurve angibt. Der erste Punkt, den Sie angeben, ist der Anfangsvertex, und die nächsten beiden Punkte sind Kontrollpunkte für das erste Béziersegment. Geben Sie anschließend für jedes weitere Kurvensegment einen Scheitel und zwei Steuerpunkte an. Der letzte Punkt, den Sie angeben, ist der endende Scheitelpunkt für die Kurve. Beachten Sie, dass immer 3n + 1 Punkte angegeben werden müssen, wobei n die Anzahl der Kurvensegmente ist.

Rückgabewert

Form

Beispiel

Im folgenden Beispiel wird myDocument eine Bézierkurve mit zwei Segmenten hinzugefügt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über