2010-09-21 17 views

Répondre

0

Je blogué sur ce il y a quelque temps: Most Important Macro for Presenters bien sûr 2010 a des fonctionnalités intégrées, mais cela fonctionne pour 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