Sub Test() Dim nr As NodeRange Dim sr As SegmentRange Set nr = ActiveShape.Curve.Selection If nr.Count > 0 Then Set sr = nr.SegmentRange sr.SetType cdrCurveSegment nr.SetType cdrSmoothNode End IfEnd Sub