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.