Curve.Nodes

Property Nodes As Nodes

Member of Curve

The Nodes property returns the collection of all nodes on all subpaths in the curve.

The Nodes property returns a read-only value.

The following code example selects a shape in the active document and determines if the selected shape is a curve object. If the shape is a curve, it displays the number of nodes found on the selected curve in a message box.

Sub CurveNodes() 
 Dim s As Shape 
 Dim nr As NodeRange 
 Set s = ActiveSelection.Shapes(1) 
 If s.Type = cdrCurveShape Then 
  MsgBox "The selected shape has " & _ 
  s.Curve.Nodes.Count & " nodes" 
 End If 
End Sub