White Tiger

Microsoft Excel VBA - アクティブ・ウィンドウ以外のウィンドウを最小化する方法

◆概要

このページは、Excel VBAでアクティブ・ウィンドウ以外のウィンドウを最小化する方法について記載しています。

◆内容

現在アクティブなウィンドウを把握するには、ActiveWindowプロパティを使用します。１つのブックで複数のウィンドウを開いている時、アクティブウィンドウに対し操作を行いたい場合などはこのプロパティを使用します。

複数のブックを開いたり、新しいウィンドウを開いているとき、アクティブなウィンドウ以外のウィドウを最小化するには次のようにします。

Sub WindowMinimize()
    
    Dim myWindow As Window
    Dim myWDName As String

    'アクティブ・ウィンドウの名前を取得
    myWDName = ActiveWindow.Caption
       
        For Each myWindow In Windows
            'アクティブ・ウィンドウでなかったら最小化する
            If myWindow.Caption <> myWDName Then
                  myWindow.WindowState = xlMinimized
            End If
        Next myWindow

End Sub

Link