Node.Next

Function Next() As Node

Member of Node

The Next method returns the next node in the curve relative to the given node.

The following code example changes the fifth node to a smooth node if the fourth node of the curve is symmetrical and the fifth node is a cusp node:

Sub Test() 
 Dim s As Shape 
 Dim n As Node 
 Set s = ActiveShape 
 If s.Type = cdrCurveShape Then 
  Set n = s.Curve.Nodes(4) 
  If n.Type = cdrSymmetricalNode And n.Next.Type = cdrCuspNode Then 
   n.Next.Type = cdrSmoothNode 
  End If 
 End If 
End Sub