Share via


Shapes.BuildFreeform Method

Word Developer Reference

Builds a freeform object.

Syntax

expression.BuildFreeform(EditingType, X1, Y1)

expression   Required. A variable that represents a Shapes collection.

Parameters

Name Required/Optional Data Type Description
EditingType Required MsoEditingType The editing property of the first node.
X1 Required Single The position (in points) of the first node in the freeform drawing relative to the left edge of the document.
Y1 Required Single The position (in points) of the first node in the freeform drawing relative to the top edge of the document.

Return Value
FreeformBuilder

Remarks

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.

Example

This example adds a freeform with five vertices to the active document.

Visual Basic for Applications
  Dim docActive As Document

Set docActive = ActiveDocument

Visual Basic for Applications
  With docActive.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

See Also