Макрос быстрого изменения размера шрифта

Александр Витер прислал небольшой макрос, позволяющий изменить размер шрифта для выделенного текста или для слова, в котором находится курсор ввода.

Вот, что пишет Александр:

Хочу поделиться макросом быстрого изменения размера шрифта.

Sub Увеличить_шрифт()
With Selection.Font
   .Size = .Size + 1
End With
End Sub

Дело в том, что я хотел это сделать через стандартную команду FontIncreaseSize\FontDecreaseSize, но не смог поставить на нее свое сочетание клавиш «Ctrl+Alt+Вверх». Пришлось написать свой макрос. Думаю, что он будет полезен посетителям Вашего сайта.

P.S. Аналогично для уменьшения шрифта, только с минусом и клавиши «Ctrl»+«Alt»+«Вниз».

Обновление (20.08.2008):

Если попытаться применить этот макрос к тексту с шрифтом разного размера, он выведет ошибку. Поэтому можно использовать другой вариант макроса, который будет увеличивать каждый символ выделенного текста.

Sub SizeCharactersFonts()
'увеличение каждого символа в тексте на 1
Dim oChar As Range
With Selection
   For Each oChar In Selection.Characters
      oChar.Font.Size = oChar.Font.Size + 1
   Next oChar
End With
End Sub