本示例向 myDocument 中添加具有四个段的任意多边形。

With ActivePresentation.Slides(1).Shapes.BuildFreeform(ksoEditingCorner, 360, 200)
    .AddNodes SegmentType:=ksoSegmentCurve, EditingType:=ksoEditingCorner, _
        X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300
    .AddNodes SegmentType:=ksoSegmentCurve, EditingType:=ksoEditingAuto, _
        X1:=480, Y1:=200
    .AddNodes SegmentType:=ksoSegmentLine, EditingType:=ksoEditingAuto, _
        X1:=480, Y1:=400
    .AddNodes SegmentType:=ksoSegmentLine, EditingType:=ksoEditingAuto, _
        X1:=360, Y1:=200
End Wit