NodeRange.AddRange

Sub AddRange(NodeRange As NodeRange)

The AddRange method adds nodes from another node range to the current range.


Parameters	Description
NodeRange	Specifies the range of nodes that are added to the current node range

The following code example sets the type of all nodes on the first and second subpaths of the selected curve to smooth:

Sub Test() 
 Dim nr As NodeRange 
 Set nr = ActiveShape.Curve.Subpaths(1).Nodes.All 
 nr.AddRange ActiveShape.Curve.Subpaths(2).Nodes.All 
 nr.SetType cdrSmoothNode 
End Sub