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,
I do have one question for you. Is inverting the image just one part of a multifunctional macro, or are you only making a macro to invert the image? If you are only making a macro to invert the image, then why not simply place a shortcut button on one of your toolbars? Tools>Customization>Commands>Image
Normal 0 21 false false false DE-AT X-NONE X-NONE MicrosoftInternetExplorer4
@twieker:
thanks for the macro. I will try it soon and will let you know if it works. But it's a pity that this bug still exists, two versions later.
@brian:
I do have placed the invert button in the toolbar. But the macro is a multifunctional one and I do have to change several files and I am using batch processing.
I am very thankful for all your help.
Three different things:
As we are already in contact I place my question here, altough it belongs to Corel Draw and I attached the file mentioned below. Or shall I post it in the appropriate forum?
Anywasy, thanks again in advance.
Best wishes,
I am not quite sure if I am understanding you correctly. I am interpreting what you are saying to mean you want to export the whole page so that you get all the graphics, plus a white background the size of the A4 page? I am then assuming when you said "adding a picture frame" you meant you are creating a rectangle the size of the page? If I have interpreted you correctly, here are my responses to your 3 questions:
I forgot to mention, I think you have an extra "unwanted" shape in your design. Look in the Object Manager and where the light grey (vanishing) shape is, there is another shape above it which does not appear to be doing anything in your design.
thank you for your great help. You understood and interpreted it correctly. Sorry for my wrong amateur words. All your tips helped.
But I don't understand how to export/convert attached cdr-file that it looks like the attached tif-file (see following post).When I change the colour values, like you proposed, than the paint brush graphic - layer 1 - in the cdr file will convert into deep black. But the paint brush graphic in the tif file is not black and it should look like this.
Best wishes and good start into the week.
tif file
do you know which program the Tiff you posted was saved from? It is1bit b&w, but has a compression method different to those offered in Photo-Paint. I have attached a Tiff for you, is this acceptable? If it is I will tell you how I created it. The shading of the shape in question is a little different to the shape in your attached Tiff, most likely due a different program being used to perform the 1bit conversion.