object that represents the freeform as it is being built. Use the AddNodes
method to add segments to the freeform. After you have added at least one segment to the freeform, you can use the ConvertToShape
method to convert the FreeformBuilder object into a Shape object that has the geometric description you’ve defined in the FreeformBuilder object.
expression.BuildFreeform(EditingType, X1, Y1)
expression Required. An expression that returns one of the objects in the Applies To list.
EditingType Required MsoEditingType. The editing property of the first node.
MsoEditingType can be one of these MsoEditingType constants. |
msoEditingAuto |
msoEditingCorner |
Cannot be msoEditingSmooth or msoEditingSymmetric. |
X1 Required Single. The position (in points) of the first node in the freeform drawing relative to the upper-left corner of the document.
Y1 Required Single. The position (in points) of the first node in the freeform drawing relative to the upper-left corner of the document.
Example
This example adds a freeform with five vertices to myDocument
.
Set myDocument = Worksheets(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes msoSegmentCurve, msoEditingCorner, _
380, 230, 400, 250, 450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.ConvertToShape
End With