The SegmentRange property returns a SegmentRange object containing all segments that start at the nodes in the current node range.
Examples:
The following VBA 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