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.
in the example from the link - it is written as ... not through the outline,
but through shape
s.Transparency.AppliedTo = cdrApplyToOutline