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