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?

 

[Steve Rindsberg]

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?

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

 

[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!