ShapeNodes.Insert 方法 (PowerPoint)

将一个新线段插入到任意多边形的指定节点之后。

语法

表达式。插入 (Index、 SegmentType、 EditingType、 X1、 Y1、 X2、 Y2、 X3、 Y3)

表达 一个代表 ShapeNodes 对象的变量。

参数

名称	必需/可选	数据类型	说明
Index	必需	Long	要在其后插入新节点的节点。
SegmentType	必需	MsoSegmentType	要添加的线段的类型。
EditingType	必需	MsoEditingType	顶点的编辑属性。
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 ，如果不指定该参数的值。

备注

SegmentType 参数值可以是下列 MsoSegmentType 常量之一。

msoSegmentCurve
msoSegmentLine

EditingType 参数值可以是下列 MsoEditingType 常量之一。

msoEditingAuto
msoEditingCorner

示例

本示例在 myDocument 中第三个形状的第四个结点后添加一个带有一段曲线的平滑结点。 图形 3 必须为至少带有四个顶点的任意多边形。

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3).Nodes
    .Insert Index:=4, SegmentType:=msoSegmentCurve, _
        EditingType:=msoEditingSmooth, X1:=210, Y1:=100
End With

支持和反馈

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