The RemoveAll method removes all segments from a segment range without affecting the segments themselves.
Examples:
The following VBA example adds an extra node to the middle of any segment longer than 1", dividing it into two separate segments.
Sub Test()
Dim sgr As New SegmentRange
Dim seg As Segment
Do
sgr.RemoveAll
For Each seg In ActiveShape.Curve.Segments
If seg.Length > 1 Then sgr.Add seg
Next seg
If sgr.Count <> 0 Then sgr.AddNode
Loop While sgr.Count <> 0
End Sub