Shapes.AddCurve-Methode (Publisher)

Fügt der angegebenen Shapes-Auflistung ein neues Shape-Objekt hinzu, das eine Bézierkurve 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. Für jedes zusätzliche Segment der Kurve geben Sie einen Scheitelpunkt und zwei Kontrollpunkte 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

Bemerkungen

Für die Arrayelemente in SafeArrayOfPoints werden numerische Werte in Punkten ausgewertet. Zeichenfolgen können in beliebigen Einheiten enthalten sein, die von Microsoft Publisher unterstützt werden (z. B. "2,5 zoll").

Beispiel

Das folgende Beispiel fügt der ersten Seite der aktiven Publikation eine aus zwei Abschnitten bestehende Bézierkurve hinzu.

Dim shpCurve As Shape 
Dim arrPoints(1 To 4, 1 To 2) As Single 
 
arrPoints(1, 1) = 0 
arrPoints(1, 2) = 0 
arrPoints(2, 1) = 72 
arrPoints(2, 2) = 72 
arrPoints(3, 1) = 144 
arrPoints(3, 2) = 36 
arrPoints(4, 1) = 216 
arrPoints(4, 2) = 108 
 
Set shpCurve = ActiveDocument.Pages(1).Shapes.AddCurve _ 
 (SafeArrayOfPoints:=arrPoints)

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.