EXCEL VBA 表示画面のコントロール①（アクティブウィンドウの参照、表示画面の拡大縮小：ActiveWindow/Zoom）

EXCEL VBA 表示画面のコントロール①（アクティブウィンドウの参照、表示画面の拡大縮小：ActiveWindow/Zoom）

現在の開いているウインドウ数（ブック数）とアクティブウィンドウのタイトル名を取得

Sub Books01()

    Dim WinCount As Integer
    Dim Wintitle As String

    WinCount = Windows.Count  '現在開いている全てのウィンドウの数（ブックの数）
    
    Wintitle = ActiveWindow.Caption   '現在のアクティブウィンドウのタイトル名

    MsgBox "現在の開いているウィンドウの数:" & WinCount & vbCrLf & "アクティブウィンドウのタイトル：" & Wintitle


End Sub

ウィンドウ表示されてる表示倍率の変更・設定

Sub Zoom01() '表示倍率変更

    Range("A1:C9").Select  '表の範囲を選択
    
    ActiveWindow.Zoom = True  '表のサイズに合わせて拡大表示

    MsgBox ActiveWindow.Zoom & "%に拡大表示しました"
    
    ActiveWindow.Zoom = 100  '元の設定の100％に戻します。
    
    MsgBox ActiveWindow.Zoom & "%に戻しました"

End Sub

各シートにある表を画面のサイズに合わせて拡大縮小（全シート実行）

Sub Zoom02() '各シートにある表のサイズを画面の大きさに合わせます。
    
    Dim Ws As Worksheet
    Dim N_Zoom As Long
    
    For Each Ws In Worksheets '全てのシートを繰り返す

        Ws.Activate  'シートをアクティブにする。（順番にSheet1⇒3）
        Ws.Range("A1").CurrentRegion.Select '現在のアクティブシートにある表の範囲を選択する。
        
        N_Zoom = ActiveWindow.Zoom  '現在のアクティブシートの表示倍率を取得する。
        
        If N_Zoom = 100 Then  'アクティブシートの倍率が100％の場合は、画面表示に合わせて倍率を変更
                ActiveWindow.Zoom = True    '倍率100％の場合は、表示画面に合わせる
            Else
                ActiveWindow.Zoom = 100    '倍率が100％以外の場合は、100％に戻す
        End If
    
    Next Ws
    
End Sub