FreeformBuilder 对象

Shapes (Shape) FreeformBuilder

代表任意多边形创建时的几何属性。

FreeformBuilder 对象的用法

使用 BuildFreeform 方法可返回一个 FreeformBuilder 对象。使用 AddNodes 方法可向任意多边形中添加站点。使用 ConvertToShape 方法可创建 FreeformBuilder 对象中定义的图形并将它加入到 Shapes 集合中。下例向 myDocument 中添加一个包含4段的任意多边形。

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