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.....
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 ?
Oh, forgot to mention there is more than 1 powerclip. Imagine a "boat load" of powerclips that have a boat load of shapes in them and they all have overprint fills. We want to remove the overprint from all those shapes within each powerclip.
p.s. back to this original post. Just like the overprint fills issue above. Set each transparent shape within multiple powerclips to Fill Only.
I suggest moving to THAT topic... I will continue there