OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

 
 
Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 09-03-2012, 04:52
grzjanik grzjanik is offline
Member
 
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 Active.page.
Unfortunately bitmap in powerclips change size and position.
I don't know why.

Code:
Quote:
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.

Regards.

~GrzJanik
Reply With Quote
 

Tags
bitmap, lens, powerclip


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
how to convert all lenses in document to no lens gorgo CorelDRAW/Corel DESIGNER VBA 2 12-01-2012 09:44
convert all bitmaps to 16-bit grayscale images keytecstaff CorelDRAW/Corel DESIGNER VBA 3 18-12-2008 13:18
How open some bitmaps in one CPP? dizzzy Macros/Add-ons 0 31-10-2007 12:22
Trace Bitmaps keytecstaff CorelDRAW/Corel DESIGNER VBA 5 24-05-2006 09:26
how can we convert all lenses in document to cmyk bitmap? olympiatr CorelDRAW/Corel DESIGNER VBA 2 27-05-2005 04:11


All times are GMT -5. The time now is 20:23.


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