Share via

BuildFreeform Method

  • Article

Builds a freeform object. Returns a FreeformBuilder 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 a Shapes object.

MsoEditingType

MsoEditingType can be either of these MsoEditingType constants (cannot be msoEditingSmooth or msoEditingSymmetric).
msoEditingAuto
msoEditingCorner

X1, 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 the active document.

  Dim docActive As Document

Set docActive = ActiveDocument

  
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