SetPosition 方法

设置由 Index 所指定的节点的位置。请注意，依据该节点的不同编辑类型，本方法将按不同的方式影响相邻节点的位置。

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

Index   Long 类型，必需。要设置位置的节点。

X1, Y1   Single 类型，必需。相对于文档的左上角，以磅为单位给出节点的新位置。

示例

本示例将 myDocument 上图形三的节点二向下移 300 磅，向右移 200 磅。图形三必须是任意多边形。

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