ウィンドウの表示倍率を変更する【Zoomプロパティ】【ExcelVBA】

構文

ウィンドウ枠の固定を設定/解除するコードサンプル

Public Sub sample()

    '■現在のウィンドウ枠の表示倍率を取得
    Debug.Print ActiveWindow.Zoom '100
    
    '■現在のウィンドウ枠の表示倍率を50%にする
    ActiveWindow.Zoom = 50
    
    '■現在のウィンドウ枠の表示倍率を20%にする
    ActiveWindow.Zoom = 200
    
    '■セルA1～E10の範囲でに合わせて表示をズームする
    Range("A1:E10").Select
    ActiveWindow.Zoom = True
    
    '■他シートの倍率を変更する場合は一度表示してからZoomする。
    ThisWorkbook.Worksheets("Sheet1").Activate
    ActiveWindow.Zoom = 120

End Sub

注意点

• ZoomはActiveWindow(ActiveSheet)にしか設定が出来ません。 他ブックや他シートは一度Activateをして、最前面表示をしてください。 例）ThisWorkbook.Worksheets(“Sheet1”).Activate

関連記事

• VBAでIE操作「IEウィンドウ表示倍率の設定方法」
• ExcelVBA「ウインドウ枠の固定状態でも、セルA1を表示させる」
• 全シートのウインドウ枠固定解除する処理をパーツ化する【エクセルマクロ】
• ウィンドウ枠の固定を設定/解除する【FreezePanesプロパティ】【ExcelVBA】