Sub Test() Dim nr As NodeRange Dim n As Node Dim i As Long Set nr = ActiveShape.Curve.Nodes.All For i = nr.Count To 1 Step -1 If nr.Item(i).Type <> cdrCuspNode Then nr.Remove i ' The same as: If nr(i).Type <> cdrCuspNode Then nr.Remove i Next i ActiveDocument.ReferencePoint = cdrCenter If nr.Count > 0 Then nr.Rotate 30 End Sub