Sub RemoveTransparencyFromOutlines2() For i = 1 To shapes.count With shapes(i) If .Outline.Transparency > 0 Then .Outline.Transparency = 0 End If End With Next iEnd Sub
This is not working, Please someone help
The outline in CoreDraw dont have a transparency parameter. End of macro.
but we have 2 options while using the transparency tool.... fill or outline or both
For many years it never occurred to me to make at least one outline with transparency... and here is a macro for many... It seems to me that I have already suggested everything. No? Maybe artificial intelligence will tell you.
Hmmm, take a look here
Doesn't work to remove overprints from shapes within a powerclip so.....
I checked the macro from the link the macro found everything and fixed everything why do you say that it doesn’t work?
As it is on that link. You fixed something? Or is the Function not inserted where it should be?
As is ...
maybe some special document - let me “touch” it ?