エクセルの印刷倍率と表示倍率を全シート設定するVBAコード

【目的】
　社内資料でも、顧客納品物でも、エクセルは印刷や表示倍率の設定調整が面倒。
　シートが沢山あると、設定も大変。だからさくっとVBAでやる。

　次のようなシート構成だとする。

VBAコード。


Private Sub hogehoge()

    '-- エクセルの印刷倍率と表示倍率を全シート設定するVBAコード

    Dim objSheet As Worksheet

	' ブックの全シートを 1 つずつループして処理する

	For Each objSheet In ThisWorkbook.Worksheets

		Debug.Print objSheet.Name & "を処理します"

		Sheets(objSheet.Index).Select
		objSheet.Range("A1").Select       '-- カーソルをA1に設定（お好みで）

		If objSheet.Name = "特別なシートA" Then
			objSheet.PageSetup.Zoom = 100 '-- 印刷倍率
			ActiveWindow.Zoom = 100       '-- 表示倍率
		ElseIf objSheet.Name = "特別なシートB" Then
			objSheet.PageSetup.Zoom = 75
			ActiveWindow.Zoom = 65
		Else
　　　　　　　　　　　　　'-- それ以外
			objSheet.PageSetup.Zoom = 65
			ActiveWindow.Zoom = 65
		End If

	Next

End Sub

コードの使い方

任意のシートを選択して右クリック、「コードの表示」

コピペ。

「hogehoge」にマウスカーソルを合わせて実行ボタン

VBAを保存しないので、実行したらコピペした内容を消して、コードを閉じる。

一発で全シート設定できるので助かる。

『　objSheet.Name = "特別なシートA"　』のような条件分岐を入れておけば、
特定のシートを選別して、個別に設定することができるので便利。

以上です。