FreeformBuilder.AddNodes 方法 (PowerPoint)

将新线段插入到正在创建的任意多边形的尾部，并添加顶点以定义此线段。 尽可能多次使用此方法将节点添加到要创建的任意多边形。 当您完成添加节点时，使用 ConvertToShape 方法来创建您刚刚定义的任意多边形。 若要向任意多边形中添加节点，它被创建后，使用 ShapeNodes 集合的 插入 方法。

语法

表达式。AddNodes (SegmentType、 EditingType、 X1、 Y1、 X2、 Y2、 X3、 Y3)

参数

名称	必需/可选	数据类型	说明
SegmentType	必需	MsoSegmentType	要添加的线段的类型。
EditingType	必需	MsoEditingType	顶点的编辑属性。 如果 SegmentType msoSegmentLine ，EditingType 必须是 msoEditingAuto 。
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

另请参阅

FreeformBuilder 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。