Excel VBA ヘッダー・フッターを設定するPageSetUpのプロパティ

印刷ヘッダー・フッターを設定する方法

印刷ヘッダー・フッターを設定するには、「ページ設定」ダイアログを表すPageSetUp【ﾍﾟｰｼﾞｾｯﾄｱｯﾌﾟ】オブジェクトで「ページ設定」ダイアログボックス内の「ヘッダー/フッター」タブの設定項目を各プロパティで設定します。

PageSetUp【ﾍﾟｰｼﾞｾｯﾄｱｯﾌﾟ】オブジェクトを取得するには、Worksheet【ﾜｰｸｼｰﾄ】オブジェクトやChart【ﾁｬｰﾄ】オブジェクトのPageSetUp　【ﾍﾟｰｼﾞｾｯﾄｱｯﾌﾟ】プロパティを使用して取得します。

PageSetUp　【ﾍﾟｰｼﾞｾｯﾄｱｯﾌﾟ】プロパティ

「ページ設定」ダイアログを表すPageSetUp【ﾍﾟｰｼﾞｾｯﾄｱｯﾌﾟ】オブジェクトを取得するには
PageSetUp　【ﾍﾟｰｼﾞｾｯﾄｱｯﾌﾟ】プロパティを使用します。

PageSetUp　【ﾍﾟｰｼﾞｾｯﾄｱｯﾌﾟ】プロパティの書式と設定値の説明

オブジェクト.PageSetUp

「ヘッダー/フッター」タブのプロパティ

※各プロパティは値の取得と設定ができます。

各プロパティの書式と設定値の説明

【取得】
オブジェクト.プロパティ
【設定】
オブジェクト.プロパティ = 設定値

「ヘッダー/フッター」タブの各プロパティ一覧

• LeftHeader【ﾚﾌﾄﾍｯﾀﾞｰ】プロパティ
  左側のヘッダーに設定したい内容を「VBAコード」と「書式コード」を使用して設定します。
• CenterHeader【ｾﾝﾀｰﾍｯﾀﾞｰ】プロパティ
  中央部のヘッダーに設定したい内容を「VBAコード」と「書式コード」を使用して設定します。
• RightHeader【ﾗｲﾄﾍｯﾀﾞｰ】プロパティ
  右側のヘッダーに設定したい内容を「VBAコード」と「書式コード」を使用して設定します。
• LeftFooter【ﾚﾌﾄﾌｯﾀｰ】プロパティ
  左側のフッターに設定したい内容を「VBAコード」と「書式コード」を使用して設定します。
• CenterFooter【ｾﾝﾀｰﾌｯﾀｰ】プロパティ
  中央部のフッターに設定したい内容を「VBAコード」と「書式コード」を使用して設定します。
• RightFooter【ﾗｲﾄﾌｯﾀｰ】プロパティ
  右側のフッターに設定したい内容を「VBAコード」と「書式コード」を使用して設定します。

VBAコードと書式コードの記述方法

• 半角英数で記述し、設定内容全体をダブルクォーテーションで囲む

• 任意の文字列とVBAコードは続けて記述する（例）「作成日：（現在の日付）」の場合は　“作成日：&D” と記述します。

• 書式コードは書式を反映したい先頭の要素の前に記述する（例）「作成日：（現在の日付）」の現在の日付の部分に下線を引く場合は“作成日：&U&D” と記述します。

• 数値から始まる文字列にフォントサイズの設定をするときは数値の前に半角スペースを入れる（例）フォントサイズ16ポイントで「25番」と印刷したい場合は“&16 25番” と記述します。

• フォントを設定するときは、設定内容全体の前に「”&””フォント名”」と記述する（例）「作成日：（現在の日付」の書体を「MS 明朝」にする場合、“&””MS 明朝””作成日：&D” と記述します。

右ヘッダーに「作成日時」中央ヘッダーに「ページ番号と総ページ数」を表示するコード例

Sub ヘッダー()
With ActiveSheet.PageSetup
    .RightHeader = "作成日時：&D-&T"
    .CenterHeader = "&P/&N"
End With
ActiveSheet.PrintPreview
End Sub

実行結果

• OddAndEvenPagesHeaderFooter【ｱﾄﾞｩｱﾝﾄﾞｲﾌﾞﾝﾍﾟｰｼﾞｽﾞﾍｯﾀﾞｰﾌｯﾀｰ】プロパティ
  偶数ページに異なるヘッターおよびフッターを設定するときはTrueを指定します。通常のヘッダー・フッターはCenterHeaderプロパティなどの各プロパティで設定しますが、偶数ページのみの場合はEvenPage【ｲﾌﾞﾝﾍﾟｰｼﾞ】プロパティで偶数ページを表すPageオブジェクトを取得しCenterHeader【ｾﾝﾀｰﾍｯﾀﾞｰ】プロパティなどを使用して設定したいヘッターやフッターを取得して、HeaderFooter【ﾍｯﾀﾞｰﾌｯﾀｰ】オブジェクトのText【ﾃｷｽﾄ】プロパティに設定します。

偶数ページのみヘッダーに現在の日時を印刷するコード例

Sun 偶数ページ日時()
with ActiveSheet.PageSetup
    .OddAndEvenPagesHederFooter = True
    .EvenPage.RightHeader.Text = "作成日：&D"
End With
ActiveSheet.PrintPreview
End Sub

• DifferentFirstPageHeaderFooter【ﾃﾞｭﾌｪﾚﾝﾄﾌｧｰｽﾄ】プロパティ
  先頭ページに異なるヘッターおよびフッターを設定するときはTrueを指定します。先頭ページのみの場合はFirstPage【ﾌｧｰｽﾄﾍﾟｰｼﾞ】プロパティで先頭ページを表すPageオブジェクトを取得しCenterHeader【ｾﾝﾀｰﾍｯﾀﾞｰ】プロパティなどを使用して
  設定したいヘッターやフッターを取得して、HeaderFooter【ﾍｯﾀﾞｰﾌｯﾀｰ】オブジェクトのText【ﾃｷｽﾄ】プロパティに設定します。

先頭ページのヘッター中央に「社外秘」とサイズ16、太字、下線で表示するコード例

Sub 先頭ページ()
With ActiveSheet.PageSetup
.DifferentFirstPageHeaderFooter = True
.FirstPage.CenterHeader.Text = "&16&B&U社外秘"
End With
ActiveSheet.PrintPreview
End Sub

• ScaleWithDocHeaderFooter【ｽｹｰﾙﾜｲﾄﾞﾄﾞｯｸ】プロパティ
  ヘッダーおよびフッターの文字サイズと印刷の拡大縮小率をワークシートの設定に合わせる場合はTrueを設定します。
• AlignMarginsHeaderFooter【ｱﾗｲﾝﾏｰｼﾞﾝｽﾞ】プロパティ
  ヘッダーおよびフッターの余白の端をワークシートの余白の端に合わせる場合はTrueを設定します。

ヘッダー・フッターに画像を設定する方法

ヘッダー・フッターに画像を設定するにはPageSetUp【ﾍﾟｰｼﾞｾｯﾄｱｯﾌﾟ】オブジェクトの
LeftHeaderPicture【ﾚﾌﾄﾍｯﾀﾞｰﾋﾟｸﾁｬｰ】プロパティ
CenterHeaderPicture【ｾﾝﾀｰﾍｯﾀﾞｰﾋﾟｸﾁｬｰ】プロパティ
RightHeaderPictuer【ﾗｲﾄﾍｯﾀﾞｰﾋﾟｸﾁｬｰ】プロパティ
LeftFooterPicture【ﾚﾌﾄﾌｯﾀｰﾋﾟｸﾁｬｰ】プロパティ
CenterFooterPicture【ｾﾝﾀｰﾌｯﾀｰﾋﾟｸﾁｬｰ】プロパティ
RightFooterPictuer【ﾗｲﾄﾌｯﾀｰﾋﾟｸﾁｬｰ】プロパティ
を使用して、ヘッダー・フッターに設定する画像を表すGraphic【ｸﾞﾗﾌｯｸ】オブジェクトを取得してGraphic【ｸﾞﾗﾌｯｸ】オブジェクトの各プロパティを使用して設定します。画像を表示するには、画像を表示したいヘッター・フッターを設定するプロパティにVBAコードの「&G」を設定します。

Graphic【ｸﾞﾗﾌｯｸ】オブジェクトを取得する書式

PageSetup.LeftHeaderPicture　（左ヘッダー）
PageSetup.CenterHeaderPicture　（中央ヘッダー）
PageSetup.RightHeaderPicture　（右ヘッダー）
PageSetup.LeftFooterPicture　（左フッター）
PageSetup.CenterFooterPicture　（中央フッター）
PageSetup.RightFooterPicture　（右フッター）

Graphic【ｸﾞﾗﾌｯｸ】オブジェクトの主なプロパティ一覧

各プロパティは値の取得と設定ができます。

右ヘッダーに画像を表示するコート例

Sub ヘッダ画像設定()
With ActiveSheet.PageSetup
　　.RightHeaderPicture.Filename = "C:¥Users¥Pictures¥社外秘ロゴ.png"
　　.RightHeaderPicture.Height = 50
　　.RightHeaderPicture.Width = 50
　　.TopMargin = .HeaderMargin + 50
　　.RightHeader = "&G"
End With
ActiveSheet.PrintPreview
End Sub

実行結果

以上で、ヘッダー・フッターを設定するPageSetUp【ﾍﾟｰｼﾞｾｯﾄｱｯﾌﾟ】プロパティについての
解説を終了します。ありがとうございました。