印刷設定(ページごとに異なるヘッダー・フッターを設定)Page オブジェクト・HeaderFooter オブジェクト
2015/10/20
Page オブジェクト
ページごとに異なるヘッダーおよびフッターを設定する場合、Page オブジェクト を使用します。先頭ページのヘッダーおよびフッターを設定する場合、FirstPage プロパティ を使用して Page オブジェクト を取得します。偶数ページのヘッダーおよびフッターを設定する場合、EvenPage プロパティ を使用して Page オブジェクト を取得します。
Pages オブジェクト のメソッド
Page オブジェクト は、Pages コレクション (シート全体のページ)のメンバーです。Pages コレクション は、Pages プロパティ で取得することができます。また個別のシートにアクセスするには、Item プロパティ に、ページのインデックス値を指定して使用します。
Pages.Item メソッド
object.Pages[ .Item ]( index )
引数・戻り値
- object ・・・ 対象となる PageSetup オブジェクト を指定します。
- index ・・・ 各ページを表すインデックス値を指定します。
(例)アクティブシートを印刷時、1 ページ目の中央フッターに設定された文字列を表示します。
MsgBos Activesheet.PageSetup.Pages(1).CenterFooter.Text
Pages.Count メソッド
object.Pages.Count
引数・戻り値
- object ・・・ 対象となる PageSetup オブジェクト を指定します。
- 印刷した時の総ページ数を返します。
(例)アクティブシートを印刷した時の総ページ数を表示
MsgBos Activesheet.PageSetup.Pages.Count
Page オブジェクト のプロパティ
Page オブジェクト のプロパティには、LeftHeader、CenterHeader、RightHeader、LeftFooter、CenterFooter、RightFooter プロパティを持ち、これらを使用して、HeaderFooter オブジェクト を取得することができます。
<左ヘッダー>
object.LeftHeader
<中央ヘッダー>
object.CenterHeader
<右ヘッダー>
object.RightHeader
<左フッター>
object.LeftFooter
<中央フッター>
object.CenterFooter
<右フッター>
object.RightFooter
引数・戻り値
- object ・・・ 対象となる Page オブジェクト(FirstPage プロパティ、EvenPage プロパティ)を指定します。
HeaderFooter オブジェクト
HeaderFooter オブジェクト は、各ヘッダーおよびフッター(左、中央、右)を表します。Text プロパティ と Picturer プロパティ を持ち、これらを使用してヘッダーおよびフッターに、文字列や画像表示の設定を行います。
<ヘッダーおよびフッターに文字列を設定>
object.Text
<ヘッダーおよびフッターに画像を設定>
object.Picture
引数・戻り値
- object ・・・ 対象となる HeaderFooter オブジェクト を指定します。
Text プロパティ
各ヘッダーおよびフッター(HeaderFooter オブジェクト)に文字列を設定する場合に使用します。詳細は、印刷設定(ヘッダーに文字列を指定) 、印刷設定(フッターに文字列を指定) を、使用例は、印刷設定(先頭ページのヘッダー・フッターを設定)FirstPage プロパティ、印刷設定(偶数ページのヘッダー・フッターを設定)EvenPage プロパティ を参照してください。
Picture プロパティ
各ヘッダーおよびフッター(HeaderFooter オブジェクト)に画像を設定する場合に使用します。詳細は、印刷設定(ヘッダーに画像を指定)) 、印刷設定(フッターに画像を指定) 、印刷設定(ヘッダー・フッターに画像を設定) を、使用例は、印刷設定(先頭ページのヘッダー・フッターを設定)FirstPage プロパティ、印刷設定(偶数ページのヘッダー・フッターを設定)EvenPage プロパティ を参照してください。
Page オブジェクト
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Sample_HeaderFooter05() Dim w As Worksheet Dim pict As String Set w = ActiveSheet MsgBox "総ページ数:" & w.PageSetup.Pages.Count & vbCrLf & _ "フッターに設定した文字列:" & _ w.PageSetup.Pages.Item(1).CenterFooter.Text End Sub |
実行結果
関連記事
-
-
ブックの表示を変更(View プロパティ)
ブックの表示を変更(View プロパティ) View プロパティ で、ブックの表 …
-
-
ワークシートをアクティブにする・選択する(Activate, Select)
Activate メソッド・Select メソッド Activate メソッドは …
-
-
ワークシートの追加・削除(Add メソッド・Delete メソッド)
新しいワークシートを作成 Add メソッドで、新しいワークシートを指定した場所に …
-
-
印刷・印刷プレビュー(PrintOut メソッド、PrintPreview メソッド)
PrintOut メソッド 印刷するには、PrintOut メソッド を使用しま …
-
-
印刷設定(ヘッダーに画像を指定)LeftHeaderPicture, CenterHeaderPicture, RightHeaderPicture
ヘッダーに画像を表示するには LeftHeaderPicture プロパティ、C …
-
-
ブックのパスを取得(FullName プロパティ,Path プロパティ)
FullName プロパティ・Path プロパティ ブックのパス(保存場所)を調 …
-
-
印刷設定(先頭ページのヘッダー・フッターを設定)DifferentFirstPageHeaderFooter, FirstPage
先頭ページに別のヘッダーおよびフッターを設定 先頭ページのヘッダーおよびフッター …
-
-
ブックが共有モードか確認する(MultiUserEditing プロパティ)
ブックが共有モードか確認する(MultiUserEditing プロパティ) 共 …
-
-
印刷実行前に総ページ数を取得(ExecuteExcel4Macro メソッド)
印刷の総ページ数を取得(ExecuteExcel4Macro メソッド) Exc …
-
-
スクロールバーの表示・非表示(DisplayHorizontalScrollBar,DisplayVerticalScrollBar)
スクロールバーの表示・非表示の設定 Windows オブジェクト の Displ …