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
shape have transparency (not Outline)
see here
community.coreldraw.com/.../transparency.appliedto
Truly, i can't believe this. there might be something sir.
hmmm? Try this
Sub RemoveOutlineTransparencies()Dim sr As ShapeRange, sh As Shape Set sr = ActivePage.Shapes.AllFor Each sh In srsh.Transparency.ApplyNoTransparency
Next sh
End Sub
sir it should remove only the outline transparency. it is removing the fill transparency also
Yeah, was afraid of that. I'll continue to work on it. I'm not the best at macros. Perhaps someone, who is, could modify it.
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
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