设置由 Index 指定的顶点位置。注意:由于顶点的编辑类型不同,此方法可能影响相邻顶点的位置。
expression.SetPosition(Index, X1, Y1)
expression 必需。该表达式返回一个 ShapeNodes 对象。
Index Long 类型,必需。要设置其位置的顶点。
X1, Y1 Single 类型,必需。新顶点相对于文档左上角的位置(以磅为单位)。
本示例将活动文档中图形 3 的第二个节点右移 200 磅,下移 300 磅。 图形 3 必须是任意多边形。
With ActiveDocument.Shapes(3).Nodes
pointsArray = .Item(2).Points
currXvalue = pointsArray(1, 1)
currYvalue = pointsArray(1, 2)
.SetPosition 2, currXvalue + 200, currYvalue + 300
End With