Help! Shadow text problem

  • Thread starter Thread starter dudley_CH
  • Start date Start date
D

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?
 
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?
Click to expand...

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 said:
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
================================================
Click to expand...


Thank you Sir!
 
Back
Top