SetPosition 方法

设置由 Index 指定的结点的位置。请注意，由于结点的编辑类型的不同，该方法可能影响相邻结点的位置。

expression  必选。该表达式返回一个 ShapeNodes 对象。

Index  必选。Long 类型。要设置位置的结点。

X1，Y1  必选。Single 类型。新结点相对于文档左上角的位置，以磅为单位。

示例

本示例将 myDocument 中第三个形状的第二个结点向右移 200 磅、向下移 300 磅。第三个形状必须是任意多边形。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    pointsArray = .Item(2).Points
    currXvalue = pointsArray(1, 1)
    currYvalue = pointsArray(1, 2)
    .SetPosition 2, currXvalue + 200, currYvalue + 300
End With