Я писал об этом некоторое время назад: Самый важный макрос для докладчиков Конечно, 2010 имеет встроенные функции, но это работает на 2008
' Increases the font size used within the editor.
Public Sub IncreaseTextEditorFontSize()
Dim textEditorFontsAndColors As Properties
textEditorFontsAndColors = DTE.Properties("FontsAndColors", "TextEditor")
textEditorFontsAndColors.Item("FontSize").Value += fontSizeIncrement
End Sub
' Decreases the font size used within the editor.
Public Sub DecreaseTextEditorFontSize()
Dim textEditorFontsAndColors As Properties
Dim fontSize As [Property]
textEditorFontsAndColors = DTE.Properties("FontsAndColors", "TextEditor")
fontSize = textEditorFontsAndColors.Item("FontSize")
If fontSize.Value >= minimumSupportedEditorSize Then
fontSize.Value -= fontSizeIncrement
End If
End Sub