Programming Excel with VBA and .NET

Name

shapes.BuildFreeform(EditingType, X1, Y1)

Synopsis

Begins drawing freeform line art and returns a FreeformBuilder object used to add elements to the freeform.

Argument	Settings
EditingType	An msoEditingType constant. Can be msoEditingAuto or msoEditingCorner.
X1	The horizontal position of the first element of the shape in points.
Y1	The vertical position of the first element of the shape in points.

Use the ConvertToShape method for drawing the freeform and render it as a shape as shown here:

Sub DrawFreeform( )
    Dim ws As Worksheet, s As Shape, fb As FreeformBuilder
    Set ws = ActiveSheet
    ' Create freeform
    Set fb = ws.Shapes.BuildFreeform(msoEditingAuto, 380, 230)
    ' Add segments.
    fb.AddNodes msoSegmentCurve, msoEditingCorner, _
        380, 230, 400, 250, 450, 300
    fb.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
    fb.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
    fb.AddNodes msoSegmentLine, msoEditingAuto, 380, 230
    ' Render drawing.
    fb.ConvertToShape
End Sub