Excelで全てのタブを同じサイズにズームするにはどうすればよいですか？

デフォルトでは、シートは100％のズームになっていますが、ズームスライダーをドラッグすることで、現在のタブを必要に応じた特定のサイズにズームすることができます。しかし、ワークブック内のすべてのタブを同時に同じサイズにズームするにはどうすればよいでしょうか？

CtrlまたはShiftを使用してすべてのタブを同じサイズにズームする

VBAを使用してすべてのタブを同じサイズにズームする

CtrlまたはShiftを使用してすべてのタブを同じサイズにズームする

ワークブック内のすべてまたは一部のタブを同じサイズにズームするには、まずシートタブを選択し、その後でズームします。

押しながら Ctrl キーを押して、一括でズームレベルを変更したいシートタブを選択し、ズームスライダーをドラッグします。スクリーンショットをご覧ください：

最初のタブを選択し、次に Shift キーを押しながら最後のタブまで選択し、ズームスライダーをドラッグしてズームレベルを変更します。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

VBAを使用してすべてのタブを同じサイズにズームする

VBAコードを使用して解決したい場合、次のコードが役立ちます。

1. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを有効にします。

2. 挿入 > モジュール をクリックし、コードを空白のスクリプトにコピーして貼り付けます。

VBA: すべてのタブを指定されたサイズに縮小または拡大する

Sub DbZoom()
'UpdatebyExtendoffice20171215
    Dim I As Long
    Dim xActSheet As Worksheet
    Set xActSheet = ActiveSheet
    For I = 1 To ThisWorkbook.Sheets.Count
        Sheets(I).Activate
        ActiveWindow.Zoom = 150
    Next
    xActSheet.Select
End Sub

3. F5 キーを押して実行すると、すべてのシートタブのズームレベルが一括で指定されたパーセンテージに変更されます。