NodeRange.Rotate

Sub Rotate(Angle As Double, [UseCenterPoint As Boolean = False], [RotationCenterX As Double], [RotationCenterY As Double])

Member of NodeRange

The Rotate property rotates the nodes in a node range as if the node range is a separate shape object.


Parameters	Description
Angle	Specifies the angle, measured in degrees, that the node range is rotated
UseCenterPoint	This parameter is optional, and its default value is False.
RotationCenterX	This parameter is optional, and its default value is 0.
RotationCenterY	This parameter is optional, and its default value is 0.

The following code example rotates the selected nodes around their geometrical center. The nodes are rotated 30?

Sub Test() 
 Dim nr As NodeRange 
 Set nr = ActiveShape.Curve.Selection 
 ActiveDocument.ReferencePoint = cdrCenter 
 nr.Rotate 30 
End Sub