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
Thanks goes to Shelby Moore
Sub RemoveOutlineTransparencies() Dim sr As ShapeRange, sh As Shape Set sr = ActivePage.Shapes.All For Each sh In sr sh.Transparency.AppliedTo = cdrApplyToFill Next sh
End Sub
Wow, Great thought sir. but not working
pkg_sriram said:but not working
it should work, there is no other way, Shelby Moore will not give bad advice... and it’s a shame you didn’t read the Help - that’s exactly what it says there. Objects may be grouped in the document. Then try a little differentlySub TestTR()Dim s As ShapeFor Each s In ActivePage.Shapes.FindShapes(Query:="@com.transparency.type > 0") s.Transparency.AppliedTo = cdrApplyToFillNext sEnd Sub
Both work in X7. I'll have to try them at home with my 2021 version.
Myron said:Both work in X7.
For Each sh In srsh.Transparency.AppliedTo = cdrApplyToFillNext sh
if object dont have transpanrecy then ... error
Oh yeah, didn't think of that. Then your, "TestTR" macro works best.
Unless, the transparency is inside a powerclip. lol
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.....