![]() |
Fountain to bitmap in powerclip
Hello everyone.
I need something like this: 1. Duplicate the curve in the same place. http://grzjanik.ovh.org/oberon/s1.jpg 2. Put the original to Powerclip and enlarge the curve about 1 mm. http://grzjanik.ovh.org/oberon/s2.jpg 3. Fountain Set by steps to 999. http://grzjanik.ovh.org/oberon/s3.jpg 4. Contents Powerclip converts the bitmap (CMYK, 300 dpi). http://grzjanik.ovh.org/oberon/s4.jpg 5. Exit from Powerclip. http://grzjanik.ovh.org/oberon/s5.jpg I just have to replace all marked Fountains or the entire document. Sometimes the need to replace all the complicated fountains to bitmaps because of differences Corel <> Adobe. :) Thank you very much for your help. Best Regards. ~GrzJanik |
Half of success :)
Hello members of Oberon.
I managed to do something like this: Quote:
I can not just do this change would affect all the selected gradients, or all throughout the document (in powerclips also). Please send me an hint. Regards. ~GrzJanik |
Add Fountain 999 :)
Now the code looks like this:
Quote:
How to do it throughout the document? Yours beginner. ~GrzJanik |
Unfortunately
Unfortunately, it works but not always correctly. :(
|
Help
It is a pity that no one attempted to solve the problem. :(
I think that either too difficult or for some reason active users do not like me (although I do not know why). :) |
Hi.
You could use loop For Each/Next to check all shapes on the page. Then call your sub to process curve. Something like... Dim s As Shape For Each s In ActivePage.FindShapes() If (s.Type = cdrCurveShape) and (s.Fill.Type = cdrFountainFill) Then GradientToPowerclipWithFountain(s) End If Next s Sub GradientToPowerclipWithFountain(ByRef s as Shape) ... replace old shape by new shape ... End Sub |
Hi Shark.
Thank you for your reply. I will try to use your idea. Write to know about the effects of my work. I'm still a beginner so little I know and not everything goes to me. Any help and useful idea to me. Soon I will write what I did or a failure. :) Thank you for your help. I greet all the help. ~GrzJanik |
Gradient to Powerclip
You did not say which version of CorelDRAW you are using, this code will only work on X4 and above as I use CQL to find the shapes with a fountain fill. Also, this code will only convert the ActivePage, if you want to do all pages in a document you would need to add another loop. Hope it helps:
Code:
Sub GradientToPowerclip() |
Corel 12
Hello.
Shelby thanks for your help and sorry for the inadvertence. Unfortunately, works on CorelDraw v.12. :( I'll check your code on Monday and write if it works. Thanks again and best regards. ~GrzJanik |
CorelDRAW
You do not need to test, it will not work in CorelDRAW 12. CorelDRAW 12 does not support CQL.
-Shelby |
All times are GMT -5. The time now is 12:57. |
Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com