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 26-05-2005, 08:44
olympiatr
Guest
 
Posts: n/a
Default how can we convert all lenses in document to cmyk bitmap?

how can we convert all lenses in document to cmyk bitmap? thanx for any help..
Reply With Quote
  #2  
Old 26-05-2005, 10:00
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default

Here you go...

Code:
Sub ConvertLenses()
    Dim s As Shape
    For Each s In ActivePage.Shapes
        ' Check to see if the object has a lens effect
        If Not s.Effects.LensEffect Is Nothing Then
            ' Convert it to a 72 dpi CMYK bitmap
            s.ConvertToBitmapEx cdrCMYKColorImage, False, False, 72, cdrNormalAntiAliasing, True
        End If
    Next s
End Sub
Reply With Quote
  #3  
Old 27-05-2005, 04:11
olympiatr
Guest
 
Posts: n/a
Default thanx

definitly i knew that Alex will solve this problem... thanx Alex, u r the Best....
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
[BUG] - Rotatted Bitmap doing bad. Kursad General 7 19-07-2005 11:49
How to convert my document colors to grayscale Alex FAQ 1 03-05-2005 14:55
Convert barcode to curves pp21 New product ideas 1 10-03-2004 22:56
Clipping a bitmap around a 2 pixel line width box wbochar CorelDRAW/Corel DESIGNER VBA 2 19-06-2003 10:07
Active document issues.. wbochar CorelDRAW/Corel DESIGNER VBA 2 19-03-2003 15:15


All times are GMT -5. The time now is 05:06.


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