Text.ConvertToArtistic

Sub ConvertToArtistic()

Member of Text

The ConvertToArtistic method changes paragraph text to artistic text.

The following code example converts all paragraph-text objects to curves by converting them to artistic text first and then converting them to curves:

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.FindShapes(, cdrTextShape) 
  If s.Text.Type = cdrParagraphText Then 
   s.Text.ConvertToArtistic 
   s.ConvertToCurves 
  End If 
 Next s 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.