Object Model Reference : Classes : T : Transparency : Methods : Transparency.ApplyNoTransparency |
Sub ApplyNoTransparency()
Member of Transparency
The ApplyNoTransparency method removes all transparencies from a shape.
The following VBA example removes all transparencies from all shapes on the active page.
Sub Test() |
Dim s As Shape |
For Each s In ActivePage.Shapes |
If s.Transparency.Type <> cdrNoTransparency Then |
s.Transparency.ApplyNoTransparency |
End If |
Next s |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.