Macros or whatever else to zoom text in VS 2008 text editor

Macros or whatever else to zoom text in VS 开发者_如何学C2008 text editor.

I blogged about this awhile ago: Most Important Macro for Presenters of course 2010 has built-in features but this works for 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