Visual Studio便利マクロ

フォントサイズお手軽変更

Visual Studio 2008で動作確認済み。これをマクロエクスプローラから作成。
キーボードショートカット「Ctrl + Num+」などに割り当てるとさらに便利。

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics

Public Module Module1
    Sub ChangeFontSize(ByVal diff As Integer)
        Dim properties As EnvDTE.Properties = DTE.Properties("FontsAndColors", "TextEditor")
        Dim fontSizeProperty As EnvDTE.Property = properties.Item("FontSize")
        Dim fontSize As Integer = CInt(fontSizeProperty.Value) + diff
        fontSizeProperty.Value = fontSize
    End Sub

    Sub IncreaseFontSize()
        ChangeFontSize(1)
    End Sub

    Sub DecreaseFontSize()
        ChangeFontSize(-1)
    End Sub

End Module

フォント固定ピッチ←→プロポーショナルお手軽変更

Visual Studio 2008で動作確認済み。これをマクロエクスプローラから作成。

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics

Public Module Module1
    Sub ChangeFont(ByVal fontName As String)
        Dim properties As EnvDTE.Properties = DTE.Properties("FontsAndColors", "TextEditor")
        Dim fontProperty As EnvDTE.Property = properties.Item("FontFamily")
        fontProperty.Value = fontName
    End Sub

    Sub ChangeFontToProportional()
        ChangeFont("Lao UI")
    End Sub

    Sub ChangeFontToFixed()
        ChangeFont("MS ゴシック")
    End Sub

End Module