在正在创建的任意多边形的末尾插入一个新段并添加定义该段的结点。可以使用该方法任意多次地为正在创建的任意多边形添加结点。当添加完结点后,使用 ConvertToShape 方法创建刚定义的任意多边形。若要给创建好的任意多边形添加结点,请使用 ShapeNodes 集合的 Insert 方法。
expression.AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
expression 必选。该表达式返回一个 FreeformBuilder 对象。
SegmentType 必选。MsoSegmentType 类型。要添加的段类型。
MsoSegmentType 可以是下列 MsoSegmentType 类型常数之一。 |
msoSegmentCurve |
msoSegmentLine |
EditingType 必选。MsoEditingType 类型。该顶点的编辑属性;如果 SegmentType 是 msoSegmentLine,则 EditingType 必须为 msoEditingAuto。
MsoEditingType 可以是下列 MsoEditingType 类型常数之一(不能是 msoEditingSmooth 或 msoEditingSymmetric)。 |
msoEditingAuto |
msoEditingCorner |
X1 必选。Single 类型。如果新段的 EditingType 为 msoEditingAuto,则此参数指定从文档左上角到新段终点的水平距离(以磅为单位)。如果新结点的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段的第一个控制点的水平距离(以磅为单位)。
Y1 必选。Single 类型。如果新段的 EditingType 为 msoEditingAuto,则此参数指定从文档左上角到新段终点的垂直距离(以磅为单位)。如果新结点的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段的第一个控制点的垂直距离(以磅为单位)。
X2 可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段第二个控制点的水平距离(以磅为单位)。如果新段的 EditingType 为 msoEditingAuto,请不要指定该参数值。
Y2 可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段第二个控制点的垂直距离(以磅为单位)。如果新段的 EditingType 为 msoEditingAuto,请不要指定该参数值。
X3 可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段终点的水平距离(以磅为单位)。如果新段的 EditingType 为 msoEditingAuto,请不要指定该参数值。
Y3 可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner,则此参数指定从文档左上角到新段终点的垂直距离(以磅为单位)。如果新段的 EditingType 为 msoEditingAuto,请不要指定该参数值。
本示例在当前演示文稿的第一张幻灯片中添加一个具有五个顶点的任意多边形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 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