OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 24-05-2006, 07:01
keytecstaff
Guest
 
Posts: n/a
Question Trace Bitmaps

Hi,

Is there any VBA code in CorelDRAW 12 to find all bitmaps and trace them?


Many thanks,


Last edited by keytecstaff; 24-05-2006 at 07:12.
Reply With Quote
  #2  
Old 24-05-2006, 07:45
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default

No, but you can do it in CorelDRAW X3
Reply With Quote
  #3  
Old 24-05-2006, 08:22
keytecstaff
Guest
 
Posts: n/a
Default

How do you do it in CorelDRAW X3?

Thanks,

Reply With Quote
  #4  
Old 24-05-2006, 08:47
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default

Here is how:

Code:
Sub TraceAllBitmaps()
    Dim bmp As Shape
    Dim trace As TraceSettings
    
    For Each bmp In ActivePage.FindShapes(, cdrBitmapShape)
        bmp.CreateSelection
        Set trace = bmp.Bitmap.trace(cdrTraceClipart, RemoveBackground:=False)
        trace.Finish
    Next bmp
End Sub
Reply With Quote
  #5  
Old 24-05-2006, 09:15
keytecstaff
Guest
 
Posts: n/a
Default

Hi,

Thanks Alex for the code.

I need the code tweeked so all the bitmaps are traced and then the original bitmaps removed. The trace needs to be very tight so the resulting trace looks exactly like the original bitmaps in the document.

Many thanks,

Reply With Quote
  #6  
Old 24-05-2006, 09:26
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default

Bitmap.Trace method has a lot of parameters. One of them allows to delete the original bitmap.
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
corel draw 11 and Corel Trace 11 BEAMA General 2 04-08-2005 19:39
Automating CorelTrace tacarey CorelDRAW/Corel DESIGNER VBA 3 13-11-2004 10:18
Bitmaps externally linked... meandirtyjoe CorelDRAW/Corel DESIGNER VBA 4 19-10-2004 12:46
How large is a trace? Rolandogail CorelDRAW/Corel DESIGNER VBA 1 05-03-2004 10:43
Tracing bitmaps? Steve CorelDRAW/Corel DESIGNER VBA 1 05-01-2004 05:14


All times are GMT -5. The time now is 04:24.


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