vba to remove shadow style?

[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

 

[JulieBean]

Geoff,

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

-Julie

 

[Geoff Cox]

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

Many thanks Steve!!

Cheers

Geoff

 

[Geoff Cox]

Geoff,

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

Julie,

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

Cheers

Geoff