Make ALL transparency settings zero in presentation

[Guest]

How can I make sure that EVERY object within a pretty huge presentation has
zero transparency?

 

[Bill Dilworth]

95% solution ...try this:

=====Begin Code=====
Sub ICIt()
Dim oSld As Slide
Dim oShp As Shape
On Error Resume Next
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
oShp.Fill.Transparency = 0
Next oShp
Next oSld
End Sub
=====End Code=====


--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
yahoo2@ Please read the PowerPoint
yahoo. FAQ pages. They answer most
com of our questions.
www.pptfaq.com
..
..

 

[Guest]

Awesome! You Rock, Bill!

Thanks $1M... just saved me a day's work