View Single Post
  #1  
Old 28-06-2006, 16:09
rsriram22
Guest
 
Posts: n/a
Default ConvertToCurves not working.

Hi,

Document.ActivePage.Shapes.All.ConvertToCurves does not seem to work. But when I use the following snippet (slow performance), it works..


objLayers = objCorelDocument.ActivePage.Layers
objCorelDocument.ActivePage.Shapes.All.ConvertToCurves()
For Each objLayer As CorelDRAW.Layer In objLayers
If (objLayer.Visible) Then
For Each objShape As CorelDRAW.Shape In objLayer.Shapes
If (objShape.Type = CorelDRAW.cdrShapeType.cdrTextShape) Then
objShape.ConvertToCurves()
Application.DoEvents()
End If
Next
End If
Next



Am using coreldraw 12 vba ...

Any ideas where I may be going wrong?

TIA
Sriram
Reply With Quote