Replace font of a character

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

jpaandian@gmail.com - 22 Nov 2007 07:06 GMT

Hi,

The font I use throughout my PPT is Trebuchet. I use the
"&" (ampersand symbol) frequently in the text. However I want to
change the font of only this character (the "&") from Trebuchet to
Arial. The Edit --> Replace menu does not give me the option to change
font or the format. Please help.

BTW, I use Powerpoint 2002.

Regards,
Jaan

Reply to this Message

Ute Simon - 22 Nov 2007 07:45 GMT

To do this, you would have to find a program to edit fonts. Though I know,
that those programs exist in the internet for professional and hobby font
designers, I am not sure, whether it will be able to edit the Trebuchet font
with them. You might have to create a new font and import the other
ampersand into it.

But: People who design fonts usually spend some years studying design. They
are specialists who know, which characters go together well and who invested
some time and thought on the form of the Trebuchet ampersand. Are you really
sure, you can judge what looks better?

I recently saw a very interesting interview on www.ppt-tv.de (in German)
with Luc(as) de Groot, the designer of Microsoft's new Calibri font. And
after that I would never dare to make a character change.

Best regards,
Ute

Signature

Ute Simon
Microsoft PowerPoint MVP Team und PowerPoint-User-Team
Schon gesehen? www.ppt-user.de/blogger und www.ppt-tv.de

> Hi,
>
[quoted text clipped - 8 lines]
> Regards,
> Jaan

Reply to this Message

JP - 22 Nov 2007 08:45 GMT

Thanks Ute.

However, I am not trying to edit the font. I just want Arial & in
place of Trebuchet &.

In effect, I want all Trebuchet &s in the ppt to be of Arial font.
That's all.

Regards.

Reply to this Message

John Wilson - 22 Nov 2007 09:03 GMT

Do you know how to use vba code?

If so try this:
Sub arialit()
Dim osld As Slide
Dim oshp As Shape
Dim lStartPos As Long
Dim Ifrom As Integer
Dim sPhrase As String
Dim sSearchPhrase As String

sSearchPhrase = "&"

For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
Ifrom = 1
If oshp.HasTextFrame Then
If oshp.TextFrame.HasText Then
sPhrase = oshp.TextFrame.TextRange.Text
Do
lStartPos = InStr(Ifrom, sPhrase, "&", vbTextCompare)
If lStartPos > 0 Then
oshp.TextFrame.TextRange.Characters(lStartPos, 1).Font.Name = "Arial"
Ifrom = lStartPos + 1
End If
Loop While lStartPos <> 0
End If
End If
Next
Next
End Sub

If not there's a simple tutorial on our site here:

http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html #vba

Signature

Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk

> Thanks Ute.
>
[quoted text clipped - 5 lines]
>
> Regards.

Reply to this Message