Sub Test() Dim sgr As SegmentRange Set sgr = ActiveShape.Curve.Segments.Range(Array(2, 3, 4)) sgr.SetType cdrLineSegmentEnd Sub