NodeRange.RemoveAll

Sub RemoveAll()

The RemoveAll method removes all nodes from a range of nodes and makes the range empty.

This method does not delete the nodes; it merely removes them from the range.

The following code example displays the number of nodes in the selected curve. It then empties the node-range object and displays the number of nodes (zero) now stored in the range.

Sub Test() 
 Dim nr As NodeRange 
 Set nr = ActiveShape.Curve.Nodes.All 
 MsgBox "There are " & nr.Count & " nodes in the curve." 
 nr.RemoveAll 
 MsgBox "Now the range contains " & nr.Count & " nodes." 
End Sub