If you go to Format|Replace Font, is there a ? before Arial Black Bold? If
so, that font is not present on your machine, so PPT is replacing the font
with what it deems the closest match -- in this case, Haettenschweiler.
As for the shadow, there are two kinds of shadows. One is the regular font
shadow setting. The other is on the Drawing toolbar -- hover over the boxes
near the end and select the one for shadows. Then choose Shadow Settings and
you can turn off the shadow on the toolbar that pops up.

Signature
Echo [MS PPT MVP] http://www.echosvoice.com
What's new in PPT 2007? http://www.echosvoice.com/2007.htm
Fixing PowerPoint Annoyances http://www.oreilly.com/catalog/powerpointannoy/
> Hello,
>
[quoted text clipped - 14 lines]
>
> Geoff
Geoff Cox - 24 Nov 2006 18:27 GMT
>If you go to Format|Replace Font, is there a ? before Arial Black Bold? If
>so, that font is not present on your machine, so PPT is replacing the font
>with what it deems the closest match -- in this case, Haettenschweiler.
Echo,
No question mark.
>As for the shadow, there are two kinds of shadows. One is the regular font
>shadow setting. The other is on the Drawing toolbar -- hover over the boxes
>near the end and select the one for shadows. Then choose Shadow Settings and
>you can turn off the shadow on the toolbar that pops up.
That's what I needed to know! Back to normal Arial Black!
Many thanks,
Geoff
Echo S - 24 Nov 2006 21:16 GMT
Well, glad it worked!

Signature
Echo [MS PPT MVP] http://www.echosvoice.com
What's new in PPT 2007? http://www.echosvoice.com/2007.htm
Fixing PowerPoint Annoyances http://www.oreilly.com/catalog/powerpointannoy/
>>If you go to Format|Replace Font, is there a ? before Arial Black Bold? If
>>so, that font is not present on your machine, so PPT is replacing the font
[quoted text clipped - 16 lines]
>
> Geoff
Geoff Cox - 25 Nov 2006 09:27 GMT
>Well, glad it worked!
I also found following code written by Shyam - made life even easier!
Geoff
For Each oSld In oPresentation.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