複数シートのヘッダ・フッタのみを揃えるには？

複数のシートを選択してヘッダ、フッタを変更すると、
印刷の向きや拡大縮小率も一緒に変更されてしまいます。
印刷の向きはバラバラで、ヘッダ、フッタのみを揃えるにはどうすればよいですか？

現在、以下のような方法で処理しています。
１．複数のシートを選択
２．表示->ヘッダ/フッタを開く
３．ヘッダ/フッタを変更

なお、ネット上で公開されているフリーソフトやアドインを使用せず、
自分で設定できる方法で教えていただけると助かります。

No.1 ベストアンサー 回答者： dobaken 回答日時： 2006/02/28 17:59

こんにちは。

マクロを使えばできます。

下記マクロを該当エクセルファイルか個人用マクロブックにコピペして実行してみてください。
ヘッダーとフッターに設定する文字は実際の設定値に変更してください。
※選択したシートのみ変更されます。

Sub SetHeader()
Dim mySheet As Worksheet
Application.ScreenUpdating = False
For Each mySheet In ActiveWindow.SelectedSheets
With mySheet.PageSetup
.LeftHeader = "左ヘッダー"
.CenterHeader = "中央ヘッダー"
.RightHeader = "右ヘッダー"
.LeftFooter = "左フッター"
.CenterFooter = "中央フッター"
.RightFooter = "右フッター"
End With
Next
Application.ScreenUpdating = True
End Sub

この回答へのお礼

ありがとうございます！さっそく試してみます。
やっぱりマクロ覚えないとだめですね。

お礼日時：2006/02/28 22:45