vba to remove shadow style?

  • Thread starter Thread starter Geoff Cox
  • Start date Start date
G

Geoff Cox

Hello,

I have got lots of ppt files in which the text has the shadow style -
would appreciate pointer on how to remove this as it make the text
virtually illegible.

Cheers,

Geoff
 
Hello,

I have got lots of ppt files in which the text has the shadow style -
would appreciate pointer on how to remove this as it make the text
virtually illegible.
Click to expand...

Sub TheShadowKnowsButHesGoneNow()

Dim oSh As Shape
Dim oSl As Slide

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

End Sub
 
Geoff,

All you would need to do is go to "format" and change the "text effects".
Hope this helps!

-Julie
 
Sub TheShadowKnowsButHesGoneNow()

Dim oSh As Shape
Dim oSl As Slide

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

End Sub
Click to expand...


Many thanks Steve!!

Cheers

Geoff
 
Geoff,

All you would need to do is go to "format" and change the "text effects".
Hope this helps!
Click to expand...

Julie,

I know that but I had lots of files to change so was looking for the
VBA approach.

Cheers

Geoff
 
Back
Top