【365】マクロでヘッダー・フッターが消えない

質問

頻繁に設定するページレイアウトをマクロ化してありますが、すでにヘッダー・フッターが設定されている状態でそのマクロを実行してもヘッダー・フッターが消えません。

.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""

EvenPageとFirstPageも""に設定してあります。

他に設定しなければならないマクロがあるのでしょうか？

回答No.1

kkkkkm · ベストアンサー

ヘッダー/フッダーを設定する
https://www.moug.net/tech/exvba/0070013.html

のコードでヘッダーを作成したり手動で作成したヘッダーフッターですが、以下のようにして消えました。シートの指定はActiveSheetですが中身は同じやりかただと思います。

Sub Test()

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With

End Sub

質問のコードに対象シートが記載されていないので上記はActiveSheet指定なのですが、印刷シート名指定でとかにするとか、シート毎の設定を全て無くしたいとかでしたら、以下のように全てのシートを対象にしないと駄目なのではないでしょうか。

Sub Test2()
Dim Ws As Worksheet

For Each Ws In Worksheets
With Ws.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
Next
End Sub

お礼

ご回答ありがとうございました。

対象シートはActiveSheetです。
確かに、ご教示いただいたマクロを実行したら消えました。
ヘッダー・フッター設定のみのマクロを別途動かす必要があるのですね・・・面倒ですね。

仕方が無いので、マクロの最後に　Call Test(マクロ名は後程変更)　を入れることにしました。

助かりました。