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