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,
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:
Best regards,Brian.
Brian Melbourne
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.
Normal 0 21 false false false DE-AT X-NONE X-NONE MicrosoftInternetExplorer4
Hi Brian,
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.
it think it was exported from Corel Draw. I have the possibility to select the CCITT 4 compression (1bit b/w) method. At least with my corel graphics suite x3. In Draw as well in Photo-Paint. I found and have other documents which are compressed with this method too.
I can open your tiff file and I can see it was compressed with LZW. Maybe I can use this compression. But in this company they used to compress it with CCITT. So I'd like to continue the tradition as no one knows why this compression is used. ;-)
Best 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.
Kind regards,
You can place buttons on your toolbars for VBA macros in the same way you can place a shortcut button for anything else. i.e. Tools>Customization>Commands and then choose Macros in the drop-down list. Find the macro of interest and drag to a toolbar. It then becomes a one-click process to run it.
I just realised that you are talking about the VBA macro regarding the rulers. You shouldn't have to do anything with that one. As soon as you open a document the rulers should appear automatically without you having to click on anything - as long as "Delay VBA" is NOT ticked in Tools>Options>VBA.
ah, that's they way it works. Newbie says again: Thank you very much. But as mentioned only inverting works zooming doesn't.No, I wasn't talking about the rulers macro. Twieker wrote an invert.gms-macro what I was talking about.
Your ruler macro bdshowrulers.gms doesn't work as I wrote in one of my previous post. And I'm not able to edit your provided macro-code as I am absolutely not firm with VB.
Best regards,weinberger
weinberger:vba macro works partly: invert works, zoom doesn't function.
weinberger: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%?
weinberger: 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