日本語入力ソフトとVBAの覚え書き

・各種日本語入力ソフトの辞書解説 ・ちょっと楽になるWord/Excel VBA集 ・ボーダーブレイク用語辞書

(Excel VBA) 縮小して全体を表示するコマンドをボタンにする


f:id:dz_dzone:20170724134148j:plain
「縮小して全体を表示する」って割と使うと思うんですけど、ボタンがないんですよね。いつもわざわざ「セルの書式設定」開いて設定してるんですが、正直面倒くさいですよね。なので、VBAでコマンド作ってボタン化しています。

コード

Sub DisplayWholeByReducing()
    ' ◆◆◆ 縮小して全体を表示するコマンド ◆◆◆
    With Selection
        .WrapText = False
        .ShrinkToFit = True
    End With
End Sub