vba to remove shadow style?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Geoff Cox - 03 Apr 2007 19:54 GMT

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

Reply to this Message

Steve Rindsberg - 03 Apr 2007 21:28 GMT

> 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.

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

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

Reply to this Message

Geoff Cox - 05 Apr 2007 10:27 GMT

>> Hello,
>>
[quoted text clipped - 19 lines]
>
>End Sub

Many thanks Steve!!

Cheers

Geoff

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

Reply to this Message

JulieBean - 03 Apr 2007 21:40 GMT

Geoff,

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

-Julie

> Hello,
>
[quoted text clipped - 5 lines]
>
> Geoff

Reply to this Message

Geoff Cox - 07 Apr 2007 07:01 GMT

>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

>-Julie
>
[quoted text clipped - 7 lines]
>>
>> Geoff

Reply to this Message