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