Creates a range containing all the segments of the collection
Syntax:
Function All() As SegmentRange
Remarks:
The All method returns a SegmentRange object containing all segments from a Segments collection.
Examples:
The following VBA example converts all curve segments in all curves to linear.
Sub Test()
Dim s As Shape
For Each s In ActivePage.Shapes
  If s.Type = cdrCurveShape Then

 s.Curve.Segments.All.SetType cdrLineSegment
  End If
Next s 
End Sub