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 28-04-2007, 02:14
designhouse
Guest
 
Posts: n/a
Unhappy How to convert transparencies to bitmap in nested powerclip

hello,

I'm developing a prepress solution macro. In order to this I'm unable to convert transparencies in nested powerclip by using following code

Private Sub ConvertLences(ss As Shapes, rs)
Dim s As Shape
For Each s In ss
If Not s.Transparency.Type = cdrNoTransparency Then
s.ConvertToBitmapEx cdrCMYKColorImage, 0, 1, rs, cdrSupersampling, 1, 1, 100
End If
If s.Type = cdrGroupShape Then ConvertLences s.Shapes, rs
On Error Resume Next
If Not s.PowerClip Is Nothing Then
ConvertLences s.PowerClip.Shapes, rs
End If
Next s
end sub

rs stands for resolution

also how to get resolution of a bitmap

kindly help me

regards
amit
Reply With Quote
  #2  
Old 28-04-2007, 15:28
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

I'm not sure, but maybe before converting an effect inside a powerclip it is required to EnterPowerClip mode or something?
Reply With Quote
  #3  
Old 29-04-2007, 03:07
designhouse
Guest
 
Posts: n/a
Exclamation

Quote:
Originally Posted by wOxxOm View Post
I'm not sure, but maybe before converting an effect inside a powerclip it is required to EnterPowerClip mode or something?

the same codes are working to convert RGB bitmaps to CMYK inside powerclip by changing mode using following codes

Code:
Private Sub ConvertLences(ss As Shapes, rs)
Dim s As Shape
For Each s In ss
If s.Bitmap.Mode = cdrRGBColorImage Or cdrDuotoneImage Or cdrLABImage _ Or cdrPalettedImage Or cdr16ColorsImage Or cdrBlackAndWhiteImage Then
            s.Bitmap.ConvertTo cdrCMYKColorImage
            End If
If s.Type = cdrGroupShape Then ConvertLences s.Shapes, rs
On Error Resume Next
If Not s.PowerClip Is Nothing Then
ConvertLences s.PowerClip.Shapes, rs
End If
Next s
end sub
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
Replacing bitmap color mode xenio CorelDRAW/Corel DESIGNER VBA 2 29-04-2007 03:12
CD11 Convert to Bitmap -> CMYK to Gray scale problem xenio General 7 24-07-2005 21:46
how can we convert all lenses in document to cmyk bitmap? olympiatr CorelDRAW/Corel DESIGNER VBA 2 27-05-2005 04:11
Convert barcode to curves pp21 New product ideas 1 10-03-2004 22:56


All times are GMT -5. The time now is 21:07.


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