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プロパティで、選択されているシートを取得することができます。

[スポンサードリンク]

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

「ページ設定・PageSetup」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.