Question

建立一个任意多边形对象。返回一个 FreeformBuilder 对象，该对象代表正在建立的任意多边形。用 AddNodes 方法向任意多边形添加线段。当您向任意多边形中添加了至少一条线段后，就可以用 ConvertToShape 方法将 FreeformBuilder 对象转化成 Shape 对象，此对象具有 FreeformBuilder 中定义的几何描述特性。

expression.BuildFreeform(EditingType,X1,Y1)

expression 必需。该表达式返回一个 Shapes 对象。

EditingTypeMsoEditingType，必需。第一个节点的编辑属性。

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