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