【EXCEL VBA】ウィンドウサイズを色々と変更したい

今回はウィンドウサイズを色々と変更する方法を紹介します。色々とは、全画面、最大化、最小化、標準サイズ、指定サイズなどになります。ユーザに触ってほしくない、視認性が最優先など要件に合わせて利用してください。

全画面表示にすると、以下のようにメニューやリボンも非表示になります。ユーザにメニューなどを触って欲しくない場合などに利用できます。

DisplayFullScreen 、WindowStateで解決する

全画面表示するには、Application.DisplayFullScreenにTrueを設定します。全画面表示を解除する際にはFalseをします。

最大化、最小化、標準サイズの切り替えには、Application.WindowStateに値を設定します。

サンプルプログラムを確認する（コピペOK）

Option Explicit

Sub sample()
    
    MsgBox ("全画面表示にします")
    Application.DisplayFullScreen = True
    
    MsgBox ("全画面表示を解除します")
    Application.DisplayFullScreen = False

    MsgBox ("最大化します")
    Application.WindowState = xlMaximized

    MsgBox ("最小化します")
    Application.WindowState = xlMinimized
    
    MsgBox ("標準サイズにします")
    Application.WindowState = xlNormal
    
    MsgBox ("320x160のサイズにします")
    Application.WindowState = xlNormal
    Application.Width = 320
    Application.Height = 160

End Sub