Sets the location of the node specified by Index. Note that, depending on the editing type of the node, this method may affect the position of adjacent nodes.
expression.SetPosition(Index, X1, Y1)
expression Required. An expression that returns a ShapeNodes object.
Index Required Long. The node whose position is to be set.
X1 , Y1 Required Single. The position (in points) of the new node relative to the upper-left corner of the document.
Example
This example moves node two in the third shape on the active document to the right 200 points and down 300 points. The third shape must be a freeform drawing.
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