How to make png completely black with a macro?
With the transparent png, I want to make the image completely black so that later i can trace it easily. Manually with Hue/saturation/lightness, we can set all the negative values. But with the macro makes work faster. Any suggestions or help? Thx
pretty close. Works for X7. Unlikely to work in anything newer though.
Sub BitmapToBlack() Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange OrigSelection.ApplyEffectHSL -180, -100, -100End Sub
Nothing happened with the above macro. The png image did not convert to black as I was expecting. What I tried is to import a png transparent image and pasted the above script and hit F5. Did not work me. Whats going wrong or how it works can you plz explain? Thanks
What do you mean pasted the script?
1. Open Macro Manager docker (Alt+shift+F11) or Windows/Dockers/Macro Manager2. Right-click on Visual Basic for Applications & choose New Macro Project.3. Name the file with no spaces i.e. BitmapToBlack and put into C:\Users\Myron\AppData\Roaming\Corel\CorelDRAW Graphics Suite X7\Draw\GMS Hit Save.4. You’ll see it pop up at the bottom of the Macro Manager list, click off off it then right click and choose New Module.5. Click off the the New Module then right-click on it and choose New Macro6. Copy/paste all code given over the “Sub Macro1() End Sub”7. Select a shape/shapes then double-click the macro
I followed each and every step, in coreldraw 2020 version 22 its not work when hit play the macro (run the macro)