スキルアップ・問題解決なら、モーグにおまかせ！

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

次のサンプルは、現在表示されているウィンドウを全て最小化して、デスクトップを表示します。なお、Shellクラスを利用するために、「Microsoft Shell Controls And Automation」にあらかじめ参照設定をしておきます。

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