Question

全部显示

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

expression.BuildFreeform(EditingType, X1, Y1)

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

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

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