BuildFreeform 方法

创建一个任意多边形对象。创建时返回一个代表该任意多边形的 FreeformBuilder 对象。使用 AddNodes 方法向该任意多边形添加段。向该任意多边形添加至少一个段后，就可以使用 ConvertToShape 方法将 FreeformBuilder 对象转化为一个 Shape 对象，该对象具有在 FreeformBuilder 对象中定义的几何说明。

expression.BuildFreeform(EditingType, X1, Y1)

expression 必选。该表达式返回“应用于”列表中的对象之一。

EditingType 必选。类型。第一个结点的编辑属性。

MsoEditingType 可以是下列 MsoEditingType 类型常数之一（不能是 msoEditingSmooth 或 msoEditingSymmetric）。

msoEditingAuto

msoEditingCorner

X1 必选。Single 类型。任意多边形第一个结点相对于幻灯片左边缘的水平位置（以磅为单位）。

Y1 必选。Single 类型。任意多边形第一个结点相对于幻灯片上边缘的垂直位置（以磅为单位）。

示例

本示例向 myDocument 中添加具有四个段的任意多边形。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.BuildFreeform(EditingType:=msoEditingCorner, _
    X1=360, Y1=200)
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _
        X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _
        X1:=480, Y1:=200
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _
        X1:=480, Y1:=400
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _
        X1:=360, Y1:=200
    .ConvertToShape
End With