EXCELLのズーム表示設定

質問

EXCELL（EXCELL 2002 SP-2)のファイル全てをある特定のズーム倍率で表示させたいのですが、どうやったらよいのでしょうか？
デフォルトでは100％になっていて、現在シートごとに倍率を直している状況です。

回答No.2

misatoanna

これから新規で作成するブックは、お好みの倍率に設定したテンプレートを作成
しておけばよいのですが、既存のファイルはマクロを使わない限り一括して変更
することができないと思います。

Sub Zoom()
Sheets.Select
ActiveWindow.Zoom = 75
Sheets(1).Select
End Sub

といったマクロと実行アイコンを作ってアドイン登録しておき、ブックを開いた
らアイコンをクリックする方法か、下記のようなマクロで一括変更してしまうか
でしょう。

まず、新規ブック(シートは１枚)に下記のマクロを標準モジュールに記述して、
"Zoom.xls" という名前で任意のフォルダに保存しておきます。
1.同ブックを呼び出し、A1に表示設定したい倍率を数字で入力します。
2.エクスプローラなどから設定変更したいブックをダブルクリックで開きます。
　複数のディレクトリから複数のブックを開いてもかまいません。
3.[ツール]-[マクロ]-[マクロ] から、ZoomBooksというマクロを実行します。
　このとき、画面に表示されているブックは何でもかまいません。
4.しばらくすると処理が終了します。
　開いていたブックは"Zoom.xls"以外すべて閉じられますが、1で指定した表示
　倍率に変更されてそれぞれもとのフォルダに上書き保存されています。

Sub ZoomBooks()
'立ち上がっている複数ブックをまとめ同倍率ズーミングする。
Dim myZoom As Variant, i As Long, j As Long
Dim WB() As String, myPath As String, myName As String
Application.ScreenUpdating = False
Windows("Zoom.xls").Activate
myZoom = Val(Range("A1").Value)
If myZoom < 25 Then myZoom = 100
ReDim WB(1 To Windows.Count) As String
Do Until i = Windows.Count
i = i + 1
Workbooks(i).Activate
If Workbooks(i).Name <> "Zoom.xls" Then '←このマクロを記述するブック名
j = j + 1
WB(j) = Workbooks(i).Name
End If
Loop
For j = 1 To Windows.Count - 1
Workbooks(WB(j)).Activate
Sheets.Select
ActiveWindow.Zoom = myZoom
Sheets(1).Select
myPath = Workbooks(WB(j)).Path
myName = "\" & Workbooks(WB(j)).Name
Application.DisplayAlerts = False
Workbooks(WB(j)).SaveAs Filename:=myPath & myName, FileFormat:=xlNormal
Workbooks(WB(j)).Close
Next j
Fin:
Application.ScreenUpdating = True
End Sub

※最初はコピーファイルでテストしてみてください。

回答No.1

qwa02321

EXCELLではなくEXCELですよね・・・(^^ゞ
キーボード左下のCTRLキーを押しながらシート見出しをクリックするとファイル（ブック）の中の全部のシートを選択できます。それから、表示倍率を変えれば、いっぺんで変えることが出来ますよ。

補足

スイマセン。スペルを間違えてました・・・(^^ゞ

えー、私の聞きたかったのはエクセルのファイル全てのズーム変換なのです（シート全てではありません）。
つまり、フォルダ内にある（フォルダ内にこだわらなくてもよいが）全てのエクセルファイルを開いた時にぜんぶ特定の倍率のズーム表示になるようにしたいのです。
できれば、いちいち使用ごとに設定するのではなく、デフォルトの段階から同じズーム倍率にしたいので、その方法を教えてください。