NodeRange.Smoothen

Sub Smoothen(Smoothness As Long)

The Smoothen method changes the smoothness of a curve at all nodes in the range.

This method produces the same effect as changing the value of the Curve smoothness slider on the property bar.


Parameters	Description
Smoothness	Sets the level of smoothness. Higher values indicate an increased level of smoothness. Values range from 0 to 100.

The following code example smoothens all curves on the active page in the drawing:

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrCurveShape Then 
   s.Curve.Nodes.All.Smoothen 20 
  End If 
 Next s 
End Sub