创建任意多边形对象。返回一个 FreeformBuilder 对象,该对象代表正在创建中的任意多边形。可用 AddNodes 方法向任意多边形添加线段。如果任意多边形中已包含了一个以上的线段,则可用 ConvertToShape 方法将 FreeformBuilder 对象转换为 Shape 对象,该对象将具有在 FreeformBuilder 对象中定义的几何属性。
expression.BuildFreeform(EditingType, X1, Y1)
expression 必需。该表达式返回“应用于”列表中的对象之一。
EditingType MsoEditingType 类型,必需。第一个节点的编辑属性。
MsoEditingType 可为以下 MsoEditingType 常量之一。 |
msoEditingAuto |
msoEditingCorner |
不能是 msoEditingSmooth 或 msoEditingSymmetric。 |
X1 Single 类型,必需。相对于文档的左上角,以磅为单位给出任意多边形的第一个节点的位置。
Y1 Single 类型,必需。相对于文档的左上角,以磅为单位给出任意多边形的第一个节点的位置。
本示例向 myDocument
中添加带有五个顶点的任意多边形。
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