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,
If you wanted to write a VBA macro and keep it all VBA, you could duplicate your layer and set the merge mode to Invert.
I'm not that firm with VBA
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
someone else wanted rulers to be turned on by default in Photo-Paint, so I made a quick VBA macro for that. If you scroll down the page at this thread until you see my first post - you should see an attachment called BDShowRulers.gms