建立一个任意多边形对象。返回一个 FreeformBuilder 对象,该对象代表正在建立的任意多边形。用 AddNodes 方法向任意多边形添加线段。当您向任意多边形中添加了至少一条线段后,就可以用 ConvertToShape 方法将 FreeformBuilder 对象转化成 Shape 对象,此对象具有 FreeformBuilder 中定义的几何描述特性。
expression.BuildFreeform(EditingType, X1, Y1)
expression 必需。该表达式返回一个 Shapes 对象。
EditingType MsoEditingType,必需。第一个节点的编辑属性。
MsoEditingType 可以是下列 MsoEditingType 常量之一(不能取 msoEditingSmooth 或 msoEditingSymmetric): |
msoEditingAuto |
msoEditingCorner |
X1,Y1 Single 类型,必需。任意多边形第一个顶点相对于文档左上角的位置。
本示例将一个具有五个顶点的任意多边形添加到活动文档中。
Dim docActive As Document Set docActive = ActiveDocument
With docActive.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