FreeformBuilder 对象

         
多种对象
FreeformBuilder
Shape

在生成任意多边形时,该对象代表其几何特征。

使用 FreeformBuilder 对象

使用 BuildFreeform 方法可返回一个 FreeformBuilder 对象。使用 AddNodes 方法可为任意多边形添加顶点。使用 ConvertToShape 方法可创建在 FreeformBuilder 对象中定义的图形,并将该图形添至 Shapes 集合中。下列示例在活动文档中添加一个具有四条边的任意多边形。

With ActiveDocument.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