Curve.Segments

Property Segments As Segments

Member of Curve

The Segments property returns the collection of all segments of all subpaths in the curve.

The Segments property returns a read-only value.

The following code example makes a selection of shapes in the active document and determines if the objects selected are shape objects. It converts all shapes in the selection to curves and changes the segment type for all of the subpath’s segments to linear.

Sub CurveSegments() 
 Dim s As Shape 
 Dim seg As Segment 
 For Each s In ActiveSelection.Shapes 
  If s.Type <> cdrCurveShape Then 
   s.ConvertToCurves 
  End If 
  If s.Type = cdrCurveShape Then 
   For Each seg In s.Curve.Segments 
    seg.Type = cdrLineSegment 
   Next seg 
  End If 
 Next s 
End Sub