White Tiger

Microsoft Excel VBA - Excelを画面の表示領域外に表示する方法

◆概要

このページは、Excel VBAでExcelを画面の表示領域外に表示する方法について記載しています。

◆内容

Excelを画面の表示領域外に表示するには次のようにします。このマクロを実行するときは、Excelが最大表示または最小表示になっていないことを確認してください。

Sub HideExcel()
'Excelを画面の表示領域外に表示する

       Dim myTop As Double, myLeft As Double

       '現在のExcelの表示位置を取得
       myTop = Application.Top
       myLeft = Application.Left

       'Excleが最大化、もしくは最小化で表示されていたら
       '処理を終了
       If Application.WindowState <> xlNormal Then Exit Sub
       
       'Excelを画面の表示領域外に表示
       Application.Left = -Application.Width

       MsgBox "元に戻します", vbOKOnly

       'Excelを元の位置に再表示
       Application.Top = myTop
       Application.Left = myLeft

End Sub

Link