ShapeRange.ConvertToCurves

Sub ConvertToCurves()

Member of ShapeRange

The ConvertToCurves method converts each shape in the range to a curve.

The following code example converts all artistic-text objects to curves:

Sub Test() 
 Dim sr As ShapeRange 
 Set sr = ActivePage.FindShapes(Type:=cdrTextShape) 
 sr.ConvertToCurves 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.