| Name | Type | Description |
|---|---|---|
| Index |
Long
|
Sub Test() Dim nr As NodeRange Set nr = ActiveShape.Curve.Selection nr.Remove 1 nr.Remove nr.Count nr.Delete End Sub