In diesem Beispiel wird ein Freihandobjekt mit fünf Scheitelpunkten in myDocument eingefügt.
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