| 
       | 
        
       | Object Model Reference : Classes : S : Segments : Methods : Segments.All  | 
      
Function All() As SegmentRange
Member of Segments
The All method returns a SegmentRange object containing all segments from a Segments collection.
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  | 
| 
       | 
        
       | 
		      
		          
		             | 
      
Copyright 2013 Corel Corporation. All rights reserved.