Im creating a macro for UV spot, I have recorded the macro in this few steps.
Hi atekdigitalTry this, i hope it works for you.Sub Fill_HLS() Dim sr As ShapeRange Dim s As Shape Set sr = ActiveSelectionRange For Each s In sr.Shapes s.Fill.ApplyUniformFill CreateHLSColor(180, 0, 0) Next sEnd Sub
The above macro did not work.
Hi atekdigitalSorry to hear that. Please have a look at this screen recording of the macro and how it functions.Is this what you want it to do? - It works perfectly fine on my system.Does it give you any errors, maybe i can modify it to suite your needs.https://youtu.be/PHiWsrhij7s
The macro is running perfect on the vector objects and not on the image. I want to convert png or psd transparent image to black for UV_spot printing. As i have mention in my question above "with my image selected". Any solution for image. Thanks for the try.
oooh ok, i was not sure if you were referencing vector or bitmap (my bad!)I will see if I can find a way for you.A bit busy with work right now, but give me a couple hours. :)
I tried with below macro in lower version x6 and its working perfect with transparent image, but not working in 2020
Sub uv() Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange OrigSelection.ApplyEffectHSL -180, -100, -100End Sub
If the image is png transparent just hit on run macro and it turns to black, but why this macro not working in 2020 current version.
I have given it a go to no avail I'm sorry.This has me stomped. I have seen in some forums that there are glitches in the newer versions of coral causing some macro functionality to no longer work. If this is the case with "ApplyEffectHSL" then just hope that it gets sorted.I have ran about 20 variants and non of them successfully executed on a bitmap image.If you find a solution, please do keep me posted.I'd love to see the solution.