View Single Post
Old 09-03-2012, 04:52
grzjanik grzjanik is offline
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Default Convert lenses to bitmaps - help

Hi, guys.

Sorry for my english.

I'm use Corel 12 and have problem with powerclips.
Alex's code (thanks Alex) converts all lenses to bitmaps on the
Unfortunately bitmap in powerclips change size and position.
I don't know why.

Sub ConvertLensesWithTransTest()
Dim s As Shape, sr As ShapeRange
Set sr = ActivePage.Shapes.FindShapes()
For Each s In sr
If Not s.Effects.LensEffect Is Nothing Then
s.ConvertToBitmapEx cdrCMYKColorImage, True, True, 300, cdrNormalAntiAliasing, True
End If
Next s
End Sub
Screens before and after:

Please any help.


Reply With Quote