Shape.ConvertToCurves

Sub ConvertToCurves()

Member of Shape

The ConvertToCurves method converts a shape to a curve.

The following code example creates a jagged text object:

Sub Test() 
 Dim s As Shape, n As Node 
 Set s = ActiveLayer.CreateArtisticText(0, 0, "Jagged") 
 With s.Text.FontProperties 
  .Name = "Arial" 
  .Style = cdrBoldFontStyle 
  .Size = 140 
 End With 
 s.ConvertToCurves 
 For Each n In s.Curve.Nodes 
  n.Move (Rnd() - 0.5) * 0.2, (Rnd() - 0.5) * 0.2 
 Next n 
End Sub