OberonPlace.com Forums

OberonPlace.com Forums (http://forum.oberonplace.com/index.php)
-   CorelDRAW/Corel DESIGNER VBA (http://forum.oberonplace.com/forumdisplay.php?f=16)
-   -   How to convert transparencies to bitmap in nested powerclip (http://forum.oberonplace.com/showthread.php?t=3124)

designhouse 28-04-2007 03:14

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

wOxxOm 28-04-2007 16:28

I'm not sure, but maybe before converting an effect inside a powerclip it is required to EnterPowerClip mode or something?

designhouse 29-04-2007 04:07

Quote:

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

:hurry:
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

:blake:


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

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