Haettenschweiler front problem?

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

Geoff Cox

Hello,

I have some text which has a shadow type effect. Looking at the font
type PowerPoint 2003 tells me that it is Arial Black Bold but I don't
think this can be true!

The font looks more like the Haettenschweiler font but I cannot seem
to get rid of the shadow effect.

It may be that in the past someone had used that font and I tried to
change to Arial Black Bold but it did not have any effect? Just a
vague memory.

Any ideas please?

Cheers

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

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

That's what I needed to know! Back to normal Arial Black!

Many thanks,

Geoff
 
Well, glad it worked!
Click to expand...

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
 
Back
Top