Segments.All

Function All() As SegmentRange

Member of Segments

The All method returns a SegmentRange object which contains all segments from the collection.

The following code 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 2007 Corel Corporation. All rights reserved.