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,
@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.
weinberger said:vba macro works partly: invert works, zoom doesn't function.
weinberger said: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".
Hi Twieker,
your code is:
z = ActiveWindow.ZoomActiveWindow.Zoom = 100With CorelScript .BitmapEffect "Invert", "InvertEffect "End WithActiveWindow.Zoom = zEnd Sub
Doesn't that mean that the active window should zoom to 100%?
Best regards,weinberger
weinberger said: Hi Twieker, your code is: z = ActiveWindow.ZoomActiveWindow.Zoom = 100With CorelScript .BitmapEffect "Invert", "InvertEffect "End WithActiveWindow.Zoom = zEnd Sub Doesn't that mean that the active window should zoom to 100%?
By the way, have you already tried setting zoom on opening to 100% by default? (Options)A batch process script (Corelscript) should simply work then.
Hi Brian, hi Twieker
I forgot to say thank you
THANK YOU for your help.
Cheers