Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » Excel VBAでヘッダー・フッターを削除する

Excel VBAでヘッダー・フッターを削除する

対象：Excel2007, Excel2010, Excel2013

ヘッダー・フッターを削除するExcelマクロ

「excelマクロヘッダーフッターを削除する」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

ヘッダー・フッターを削除するExcelマクロ・VBA（Visual Basic for Applications）のコードを探している方による検索です。

［スポンサードリンク］

アクティブシートのヘッダー・フッターを削除するサンプルマクロ

以下のようなマクロで、アクティブなシートのヘッダー・フッターを削除できます。

Sub アクティブシートのヘッダーフッターを削除する()
　With ActiveSheet.PageSetup
　　.LeftHeader = ""
　　.CenterHeader = ""
　　.RightHeader = ""

　　.LeftFooter = ""
　　.CenterFooter = ""
　　.RightFooter = ""
　End With
End Sub

PageSetupオブジェクトに、
　LeftHeader
　CenterHeader
　RightHeader
　LeftFooter
　CenterFooter
　RightFooter
といったプロパティが存在しています。

これらのプロパティに「""」（空白文字列）を設定すれば、ヘッダー・フッターを削除することができます。

全シートのヘッダー・フッターを削除するサンプルマクロ

以下のようなマクロにすれば、アクティブなブックの、全シートのヘッダー・フッターを削除できます。

Sub 全シートのヘッダーフッターを削除する()
　Dim sh As Object

　For Each sh In Sheets
　　With sh.PageSetup
　　　.LeftHeader = ""
　　　.CenterHeader = ""
　　　.RightHeader = ""

　　　.LeftFooter = ""
　　　.CenterFooter = ""
　　　.RightFooter = ""
　　End With
　Next sh
End Sub

すべてのシートに対してループを回して、
　For Each sh In Sheets

各シートで、先と同じくPageSetupオブジェクトのヘッダー・フッター系プロパティに「""」を指定しています。
　　With sh.PageSetup
　　　.LeftHeader = ""
　　　.CenterHeader = ""
　　　.RightHeader = ""
　　　.LeftFooter = ""
　　　.CenterFooter = ""
　　　.RightFooter = ""

選択されているシートのヘッダー・フッターを削除するサンプルマクロ

以下のようなマクロにすれば、アクティブなブックの、選択されているシートのヘッダー・フッターを削除できます。

Sub 選択されているシートのヘッダーフッターを削除する()
　Dim sh As Object

　For Each sh In ActiveWindow.SelectedSheets
　　With sh.PageSetup　　
　　　.LeftHeader = ""
　　　.CenterHeader = ""
　　　.RightHeader = ""
　
　　　.LeftFooter = ""
　　　.CenterFooter = ""
　　　.RightFooter = ""　
　　End With
　Next sh
End Sub

全シートのヘッダー・フッターを削除するマクロと考え方は同じで、ループを回す対象が、選択されているシートになっている部分だけが違います。

Window.SelectedSheetsプロパティで、選択されているシートを取得することができます。

［スポンサードリンク］