NodeRange.SegmentRange

Property SegmentRange As SegmentRange

The SegmentRange property returns a SegmentRange object that contains all of the segments that start at the nodes in the current node range.

The SegmentRange property returns a read-only value.

The following code example converts all selected nodes in the current curve to smooth nodes, and it converts all of the associated segments to curve segments:

Sub Test() 
 Dim nr As NodeRange 
 Dim sr As SegmentRange 
 Set nr = ActiveShape.Curve.Selection 
 If nr.Count > 0 Then 
  Set sr = nr.SegmentRange 
  sr.SetType cdrCurveSegment 
  nr.SetType cdrSmoothNode 
 End If 
End Sub