| Name | Type | Description |
|---|---|---|
| IndexArray |
Variant
|
Sub Test() Dim sgr As SegmentRange Set sgr = ActiveShape.Curve.Segments.AllExcluding(1, 2, 3) sgr.AddNode End Sub