Sub Test() Dim sgr As New SegmentRange Dim seg As Segment For Each seg In ActiveShape.Curve.Segments If seg.Type = cdrLineSegment Then sgr.Add seg Next seg sgr.SetType cdrCurveSegment sgr.NodeRange.SetType cdrSmoothNode End Sub