【エクセルVBAレシピ】全てのシートの拡大率を100にして、最初のシートを選択する。
Sub setZoomOfAllSheets(Optional wb As Workbook, Optional zoomMagnification As Variant = 100) If wb Is Nothing Then Set wb = ActiveWorkbook For Each ws In wb.Sheets ws.Activate ActiveWindow.Zoom = zoomMagnification Next wb.Sheets(1).Activate End Sub
wb | 編集するワークブックのオブジェクト(省略したらアクティブなウィンドウのブック) |
zoomMagnification | 拡大率(10~400、Trueなら選択されたセルが収まる用に拡大縮小、Falseなら100) |
関連:
【エクセルVBAレシピ】全てのシートでA1セルを選択状態にして、最小ノートを選択する。 - ひとふたブログ
参照:
名前付き引数と省略可能な引数について (VBA) | Microsoft Docs
Application.ActiveWorkbook プロパティ (Excel) | Microsoft Docs
Worksheet.Activate メソッド (Excel) | Microsoft Docs
Window.Zoom プロパティ (Excel) | Microsoft Docs