Hy all,
by "normal" inverting an b/w image the image changes the colours in black or white.
when recording the invert image process the script shows:
WITHOBJECT "CorelPHOTOPAINT.Automation.13" .BitmapEffect "Invertieren", "InvertEffect "END WITHOBJECT
But when I play the recorded script nothing happens. No invert. No changing colours. Other scripts like Mask Rectangle or Adding Guidelines work.
Using Corel photo-paint x3 v.13.0.0.576. Don't know if I have Corel Service Packs installed. I don't think so.
Has anybody an idea?
Thx in advance,
weinberger
Hi Weinberger,
In PPX5 the code recorded as follows and works fine:
WITHOBJECT "CorelPHOTOPAINT.Automation.15" .SetDocumentInfo 824, 484 .BitmapEffect "Invert", "InvertEffect "END WITHOBJECT
I then removed the second line ( .SetDocumentInfo 824, 484), resaved the file and ran it again....still worked fine. I am not sure why yours is not working. I wonder if you change the word "Invertieren" to "Invert" if that would make any difference. I take it your copy of Photo-Paint was installed in German? If so, then changing to the English spelling may not help, but worth a try.
Best regards,Brian.
Hi Brian,
Thank you.
Yes, forgot to mention that my copy of Photo-Paint is in German.
Tried your proposal to change the word to "Invert". Doesn't make any difference.
Anyway, thanks a lot and it was worth a try.
Kind regards,
great, thanks to twieker
both are working. isn't that a bug? is this resolved with service pack patches?
1. now I need to macro/record the zoom to 100%. how to?
2. is there a possibility to automatically show rulers with opening a file? Everytime I need to click the ruler button. It's annoying.
Great help
cheers
weinberger said:great, thanks to twieker both are working. isn't that a bug? is this resolved with service pack patches?
weinberger said:1. now I need to macro/record the zoom to 100%. how to?
I've attached it, but I'm not sure it will work in the German version?(You may have to replace the one line with the German one from your script).
@twieker:
vba macro works partly: invert works, zoom doesn't function.
I placed your VBA macro in C:\Users\Username\AppData\Roaming\Corel\Graphics13\User CorelPHOTO-PAINT\GMS
What I don't understand is how to use the VBA Macro or whats the reason of the VBA Macro? Because to use the macro I have to click the VB "play"-toolbutton, find the macro and then click "execute".
But only one Active Window is edited. And I can't use the macro for batch processing. Or is it possible?
With the tool buttons "invert" and "100% zoom" I have the same result, with one click less.
Thank you very much anyway.
You can place buttons on your toolbars for VBA macros in the same way you can place a shortcut button for anything else. i.e. Tools>Customization>Commands and then choose Macros in the drop-down list. Find the macro of interest and drag to a toolbar. It then becomes a one-click process to run it.
I just realised that you are talking about the VBA macro regarding the rulers. You shouldn't have to do anything with that one. As soon as you open a document the rulers should appear automatically without you having to click on anything - as long as "Delay VBA" is NOT ticked in Tools>Options>VBA.
ah, that's they way it works. Newbie says again: Thank you very much. But as mentioned only inverting works zooming doesn't.No, I wasn't talking about the rulers macro. Twieker wrote an invert.gms-macro what I was talking about.
Your ruler macro bdshowrulers.gms doesn't work as I wrote in one of my previous post. And I'm not able to edit your provided macro-code as I am absolutely not firm with VB.
Best regards,weinberger