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
Myron said:inside a powerclip
Shelby PowerClip search feature FindPCShapes() function as ShapeRange works fine - thank you very much
forgive this old code hacker.
How does on go about implementing this into the macro?
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.....
yes - this is the same function and it works great - tested many times
check other