Remove All Shading?

[Bill]

I've using a PowerPoint to Flash conversion program called PowerConvert. Terrific
program, but it won't properly convert any PPT element that uses shading or a drop
shadow - not on images, not on text.

Is there a way to globally remove all shading/drop shadows in a PPT 2000 document?
Either a little trick, or a macro? For really large presentations I don't want to have
to go through it slide by slide, you understand...

Thanks!

Bill.

 

[Bill Dilworth]

It gets a little tricky when dealing with groups of grouped shapes, but try
this ...



Sub Noon()
Dim oSld As Slide
Dim oShp As Shape

For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
oShp.Shadow.Visible = False
If oShp.HasTextFrame = msoTrue _
Then oShp.TextFrame.TextRange _
.Font.Shadow = msoFalse
Next oShp
Next oSld

Set oShp = Nothing
Set oSld = Nothing

End Sub






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