SegmentRange.NodeRange

Property NodeRange As NodeRange

The NodeRange property returns a NodeRange object that contains all nodes that end the segments in the active segment-range object.

The NodeRange property returns a read-only value.

The following code example converts all line segments to curves and changes the type of all ending nodes of the segments to smooth:

Sub Test() 
 Dim sgr As New SegmentRange 
 Dim seg As Segment 
 For Each seg In ActiveShape.Curve.Segments 
  If seg.Type = cdrLineSegment Then sgr.Add seg 
 Next seg 
 sgr.SetType cdrCurveSegment 
 sgr.NodeRange.SetType cdrSmoothNode 
End Sub