| Name | Type | Description |
|---|---|---|
| IndexArray |
Variant
|
Sub Test() Dim sgr As SegmentRange Set sgr = ActiveShape.Curve.Segments.Range(Array(2, 3, 4)) sgr.SetType cdrLineSegment End Sub