Shapes. AddCurve-Methode (Word)Shapes.AddCurve method (Word)

Gibt ein Shape -Objekt zurück, das eine Bézier-Kurve in einem Zeichenbereich darstellt.Returns a Shape object that represents a Bézier curve in a drawing canvas.

SyntaxSyntax

Ausdruck. AddCurve (SafeArrayOfPoints)expression.AddCurve (SafeArrayOfPoints)

Ausdruck: Erforderlich.expression Required. Eine Variable, die ein Shapes -Objekt darstellt.A variable that represents a Shapes object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
SafeArrayOfPointsSafeArrayOfPoints ErforderlichRequired VariantVariant Ein Array von Koordinatenpaaren, das Scheitelpunkte und Steuerpunkte der Kurve angibt.An array of coordinate pairs that specifies the vertices and control points of the curve. Der zuerst angegebene Punkt bildet den Scheitelpunkt, die beiden folgenden stellen Steuerpunkte für das erste Bézier-Segment dar.The first point you specify is the starting vertex, and the next two points are control points for the first Bézier segment. Geben Sie anschließend für jedes weitere Kurvensegment einen Scheitel und zwei Steuerpunkte an.Then, for each additional segment of the curve, you specify a vertex and two control points. Der zuletzt angegebene Punkt ist der Endscheitel der Kurve.The last point you specify is the ending vertex for the curve. Beachten Sie, dass immer 3n + 1 Punkte angegeben werden müssen, wobei n die Anzahl der Kurvensegmente ist.Note that you must always specify 3n + 1 points, where n is the number of segments in the curve.

RückgabewertReturn value

ShapeShape

BeispielExample

In diesem Beispiel wird einem neuen Zeichenbereich eine Bézier-Kurve hinzugefügt.This example adds a Bézier curve to a new drawing canvas.

Sub CanvasBezier() 
 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 Dim sngArray(1 To 7, 1 To 2) As Single 
 
 Set docNew = Documents.Add 
 
 'Create a new drawing canvas 
 Set shpCanvas = docNew.Shapes.AddCanvas(Left:=100, _ 
 Top:=100, Width:=300, Height:=50) 
 
 sngArray(1, 1) = 0 
 sngArray(1, 2) = 0 
 sngArray(2, 1) = 50 
 sngArray(2, 2) = 50 
 sngArray(3, 1) = 100 
 sngArray(3, 2) = 0 
 sngArray(4, 1) = 150 
 sngArray(4, 2) = 50 
 sngArray(5, 1) = 200 
 sngArray(5, 2) = 0 
 sngArray(6, 1) = 250 
 sngArray(6, 2) = 50 
 sngArray(7, 1) = 300 
 sngArray(7, 2) = 0 
 
 'Add Bezier curve to drawing canvas 
 shpCanvas.CanvasItems.AddCurve _ 
 SafeArrayOfPoints:=sngArray 
 
End Sub

Siehe auchSee also

Shapes Collection ObjectShapes Collection Object

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.