SetPosition Method
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 shape three on myDocument to the right 200 points and down 300 points. Shape three must be a freeform drawing.
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