FreeformBuilder 对象

多个对象 FreeformBuilder Shape

代表在创建任意多边形时使用的几何形状。

使用 FreeformBuilder 对象

使用 BuildFreeform 方法返回一个 FreeformBuilder 对象。使用 AddNodes 方法向任意多边形添加结点。使用 ConvertToShape 方法创建 FreeformBuilder 对象中定义的形状并将其添加到 Shapes 集合中。以下示例在 myDocument 中添加一个具有四段的任意多边形。

Set myDocument = ActivePresentation.Slides(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