Home > 即効テクニック > Excel VBA > ウィンドウ操作関連のテクニック > 表示されているウィンドウを全て最小化する

即効テクニック
ウィンドウ操作関連のテクニック

表示されているウィンドウを全て最小化する

(Excel 2000/2002/2003)
●概要●
Shell32ライブラリで定義されている、ShellクラスのMinimizeAllメソッドを利用することで、表示されているウィンドウを全て最小化して、デスクトップを表示することができます。
構文 オブジェクト.MinimizeAll
設定項目　　　内容
オブジェクト　Shellオブジェクト

次のサンプルは、現在表示されているウィンドウを全て最小化して、デスクトップを表示します。なお、Shellクラスを利用するために、「Microsoft Shell Controls And Automation」にあらかじめ参照設定をしておきます。
●サンプル1● 
Sub Sample1()
    Dim ShellObject As Shell32.Shell
    
    Set ShellObject = New Shell32.Shell
    
    ShellObject.MinimizeAll
    
    Set ShellObject = Nothing
End Sub

また、参照設定を行わず、実行時バインディングを利用する場合には、CreateObject関数を利用して、次のように記述することも可能です。

Sub Sample2()
    CreateObject("Shell.Application").MinimizeAll
End Sub