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
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
thanks for your help brian. but BDShowRulers.gms doesn't work for me.
I pasted in all those folders:
C:\Users\Username\AppData\Roaming\Corel\Graphics13\User CorelPHOTO-PAINT
C:\Program Files (x86)\Corel\CorelDRAW Graphics Suite 13\CorelPHOTO-PAINT
even in those, although "Draw":
C:\Program Files (x86)\Corel\CorelDRAW Graphics Suite 13\Draw
C:\Users\Username\AppData\Roaming\Corel\Graphics13\User Draw
The rulers won't stick as a default.
And in VB-Editor BDShowrulers is password protected.
Best regards,
it works fine here, but I am using X5, not sure if that makes a difference. You only need to place it in one folder, I use the first one you posted:
C:\Users\Username\AppData\Roaming\Corel\Graphics13\User CorelPHOTO-PAINT\GMS
You will note I added GMS to the end of your address, just in case you were not aware it has to go in a folder named GMS. You may have to untick "Delay Load VBA" in Tools>Options>VBA to get it to work.
yes it's in the GSM folder. By copy and paste I lost the folder
"Delay Load VBA" is already unchecked.
I tried to read the Macro in VB-Editor but BDShowrulers is password protected.
But thanks at all.
Oops, sorry about that. This is the code it contains:
Private Sub GlobalMacroStorage_NewDocument(ByVal Document As IPaintDocument) ActiveDocument.ActiveWindow.RulersVisible = True
End Sub
Private Sub GlobalMacroStorage_OpenDocument(ByVal Document As IPaintDocument) ActiveDocument.ActiveWindow.RulersVisible = True End Sub
Private Sub GlobalMacroStorage_Start() ActiveDocument.ActiveWindow.RulersVisible = True End Sub
I can't remember why I did the 3rd Sub.