OberonPlace.com Forums

OberonPlace.com Forums (http://forum.oberonplace.com/index.php)
-   CorelDRAW/Corel DESIGNER VBA (http://forum.oberonplace.com/forumdisplay.php?f=16)
-   -   ConvertToCurves not working. (http://forum.oberonplace.com/showthread.php?t=1597)

rsriram22 28-06-2006 16:09

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

Lev 29-06-2006 09:23

1 Attachment(s)
try the attachment

rsriram22 29-06-2006 09:40

Performance is still not very good.
 
Lev,
Thanks for the help.. But it didnt greatly improve the performance either..

I am on a XP with 1GIG RAM and using VB.Net on .Net 1.2..

Thanks
Sriram


All times are GMT -5. The time now is 17:02.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com