SetPosition方法

设置由 Index 所指定的节点的位置。请注意,依据该节点的不同编辑类型,本将按不同的方式影响相邻节点的位置。 expression.SetPosition(Index, X1, Y1) expression 必需。该表达式返回一个 ShapeNodes对象。 Index Long 类型,必需。要设置位置的节点。 X1, Y1 Single 类型,必需。相对于文档的左上角,以磅为单位给出节点的新位置。 Excel VBA教程:SetPosition方法·示例 本示例将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