Sub Test() Dim n As Node For Each n In ActiveShape.Curve.Subpaths(1).Nodes n.Type = cdrSymmetricalNode Next nEnd Sub