AddCurve Method
Applies To
Shapes collection object.
Description
Creates a Bézier curve. Returns a Shape object that represents the new curve.
Syntax
expression.AddCurve(SafeArrayOfPoints, Anchor)
expression Required. An expression that returns a Shapes collection.
SafeArrayOfPoints Required Variant. An array of coordinate pairs that specifies the vertices and control points of the curve. The first point you specify is the starting vertex, and the next two points are control points for the first Bézier segment. Then, for each additional segment of the curve, you specify a vertex and two control points. The last point you specify is the ending vertex for the curve. Note that you must always specify 3n + 1 points, where n is the number of segments in the curve.
Anchor Optional Variant. A Range object that represents the text that the curve is bound to. If Anchor is specified, the anchor is positioned at the beginning of the first paragraph in the anchoring range. If this argument is omitted, the anchoring range is selected automatically and the curve is positioned relative to the top and left edges of the page.
See Also
AddPolyline method, AddShape method.
Example
This example adds a two-segment Bézier curve to myDoc and anchors the curve to the second paragraph.
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 myDoc = ActiveDocument
myDoc.Shapes.AddCurve pts, myDoc.Paragraphs(2).Range