Header
PowerPoint tips, hints and tutorials that will change your presentations for ever!

INDEX

 

Jigsaws
Sounds
Video
Custom Shows
vba code
NaviSlides
Games for teachers
Bullets
Triggers
Security
Flash Cards
Multiple Instances
PowerPoint 2007
Mail Merge
Random events
Animation
Hyperlinks
Set spellcheck language


Home buttonTutorial buttonContact buttonProducts button


Kerning

In PowerPoint 2007 Micsrosoft offered the ability to kern (adjust the spacing between characters). This is really useful but not available in earlier versions.

You can fake it by inserting spaces between characters and then adjusting the font size of just the spaces. Even if you copy / paste this is tedious to say the least.

Select the text (at least two characters!) and run this macro to make it easy. Initially the spaces are font size 1 point but can be increased in 1 point increments. If the spaces are larger than the rest of the text the text will move on screen.

Sub fakekern()
Dim otxt As TextRange
Dim i As Integer
Dim response As Integer
On Error GoTo errhandler
Set otxt = ActiveWindow.Selection.TextRange
For i = Len(otxt) To 2 Step -1
With otxt.Characters(i).InsertBefore(" ")
.Font.Size = 1
End With
Next
response = MsgBox("More Space?", vbYesNo)
If response = vbNo Then Exit Sub
Do
Set otxt = ActiveWindow.Selection.TextRange
For i = 2 To Len(otxt) - 1 Step 2
otxt.Characters(i).Font.Size = otxt.Characters(i).Font.Size + 1
Next
response = MsgBox("More Space?", vbYesNo)
If response = vbNo Then Exit Do
Loop
Exit Sub
errhandler:
MsgBox "Did you have text selected?"
End Sub

Don't know how to use vba?

 
 

Back to the Index Page

POWERPOINT BLOG

Articles on your favourite sport

Free Microsoft PowerPoint Advice, help and tutorials, Template Links
This website is sponsored by Technology Trish Ltd
© Technology Trish 2007
Registered in England and Wales No.5780175
PowerPoint® is a registered trademark of the Microsoft Corporation