Help! Shadow text problem

[dudley_CH]

I have a number of presentations that I must convert to Flash using
PresentationPro's PowerConverter. The problem is that they don't
support shadows on text so I need some code that will go through a
presentation and strip the shadows off any text that needs it. Does
anyone know of something like that?

 

[dudley_CH]

Sub NoTextShadows()

Dim oSld As Slide
Dim oShp As Shape

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

End Sub



-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Thank you Sir!