Transparency.ApplyNoTransparency

Sub ApplyNoTransparency()

Member of Transparency

The ApplyNoTransparency method removes all of the transparencies from a shape.

The following code example removes all of the transparencies from all of the 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 2007 Corel Corporation. All rights reserved.