Moves all the nodes within the range by a given delta
Syntax:
Sub Move(Optional ByVal DeltaX As Double = 0, Optional ByVal DeltaY As Double = 0, Optional ByVal AnchorIndex As Long = 1, Optional ByVal ElasticMode As Boolean = False)
Parameters:
Name Type Description
DeltaX
Double
Specifies the horizontal distance to move the nodes.
DeltaY
Double
Specifies the vertical distance to move the nodes.
AnchorIndex
Long
Specifies, by index number, the node in the node range to act as an anchor.
ElasticMode
Boolean
Specifies whether to use Elastic Mode. If this value is set to True, only the node identified by the AnchorIndex parameter is moved by the exact offset specified, while the remaining nodes are offset by a smaller value depending on their position in the curve.
Remarks:
The Move method repositions all nodes in a node range by moving each node by a specified offset.
Examples:
The following VBA example creates a node range from all nodes in the curve except for the first and the last nodes. The nodes are then moved up (vertically) by 1" and moved back down by 1" with Elastic Mode enabled. The middle node (node_count/2) is used as an anchor node in the last operation.
Sub Test()
Dim crv As Curve
Dim nr As NodeRange
Set crv = ActiveShape.Curve
Set nr = crv.Nodes.AllExcluding(1, crv.Nodes.Count)
nr.Move 0, 1
nr.Move 0, -1, nr.Count \ 2, True 
End Sub