印刷設定（偶数ページのヘッダー・フッターを設定）OddAndEvenPagesHeaderFooter, EvenPage

2015/10/20

偶数ページに別のヘッダーおよびフッターを設定

偶数ページのヘッダーおよびフッターの内容を設定するには、PageSetup.EvenPage プロパティを使用します。PageSetup.OddAndEvenPagesHeaderFooter プロパティ に、True を指定することで、PageSetup.EvenPage プロパティ に設定した内容が有効になります。（※ Excel 2007 以降のバージョンでのみ使用できます。）

PageSetup.OddAndEvenPagesHeaderFooter プロパティ

True に設定すると、偶数ページでは他のページと異なるヘッダーとフッターが使用されます。値の取得および設定が可能です。ブール型（Boolean）の値を使用します。

【書式】

＜取得＞
object.PageSetup.OddAndEvenPagesHeaderFooter

＜設定＞
object.PageSetup.OddAndEvenPagesHeaderFooter = boolean

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
boolean ・・・ True または、False を指定します。

PageSetup.EvenPage プロパティ

印刷対象の偶数ページのヘッダーおよびフッターを設定する際に使用する Page オブジェクト を取得します。
Page オブジェクト は、LeftHeader プロパティ、CenterHeader プロパティ などを使用して、各ヘッダー、フッター等を表す HeaderFooter オブジェクト を取得することができます。
HeaderFooter オブジェクト の Text プロパティ を使用して、各ヘッダー・フッターの文字列等の設定を行い、Picture プロパティ を使用して、画像の設定を行います。（印刷設定（ページごとに異なるヘッダー・フッターを設定）Page オブジェクト・HeaderFooter オブジェクトを参照）

【書式】

object.PageSetup.EvenPage

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。

偶数ページに他のページと異なるヘッダーを設定した例

サンプルVBAソース

　
Sub Sample_HeaderFooter07()
    
    Dim w As Worksheet
    Dim pict1 As String, pict2 As String
    
    Set w = ActiveSheet
    pict1 = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "/sample01.jpg"
    pict2 = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "/sample02.jpg"
        
    'プリンタとの通信を遮断（印刷設定を高速化）
    Application.PrintCommunication = False
    
    With w.PageSetup
    
        '先頭ページのみ他ページと異なるヘッダーおよびフッターを設定する
        .DifferentFirstPageHeaderFooter = True
        
        '偶数ページに別のヘッダーおよびフッターを設定する
        .OddAndEvenPagesHeaderFooter = True

        
        '【先頭ページのヘッダー・フッターの設定】
        With .FirstPage
        
            'ヘッダー中央に、文字列「[シート名] 先頭のページ」
            '文字サイズ 24、色 青、太字、二重下線
            .CenterHeader.Text = "&24&K0000FF&B&E&A 先頭のページ"
        
            'フッター中央に、ページ数と総ページ数を表示
            .CenterFooter.Text = "&P / &N ページ"
        
        End With

        
        '【偶数ページのヘッダー・フッターの設定】
        With .EvenPage

            '表示する画像のパス＆名前
            .CenterHeader.Picture.Filename = pict2
            
            '画像の縦横サイズの比率を維持
            .CenterHeader.Picture.LockAspectRatio = msoTrue
        
            '元画像のサイズ 500
            .CenterHeader.Picture.Width = 250
        
            '元画像のサイズ 250
            .CenterHeader.Picture.Height = 125
                                                        
            '画像の色（自動）
            .CenterHeader.Picture.ColorType = msoPictureAutomatic
        
            '画像の明度（ 50% ）
            .CenterHeader.Picture.Brightness = 0.5
        
            '画像のコントラスト（ 50% ）
            .CenterHeader.Picture.Contrast = 0.5
        
            'ヘッダー中央に画像を表示
            .CenterHeader.Text = "&G"
            
            'フッター中央に、ページ数と総ページ数を表示
            .CenterFooter.Text = "&P / &N ページ"
        
        End With

        
        '【上記以外のページのヘッダー・フッターの設定】
        
        '表示する画像のパス＆名前
        .CenterHeaderPicture.Filename = pict1
        
        '画像の比率を維持
        '※元画像との比率が異なる場合は Height の値が基準となる
        .CenterHeaderPicture.LockAspectRatio = msoTrue

        '元画像のサイズ 500
        .CenterHeaderPicture.Width = 500
        
        '元画像のサイズ 300
        .CenterHeaderPicture.Height = 150
        
        '画像の色（自動）
        .CenterHeaderPicture.ColorType = msoPictureAutomatic
        
        '画像の明度（ 50% ）
        .CenterHeaderPicture.Brightness = 0.5
        
        '画像のコントラスト（ 50% ）
        .CenterHeaderPicture.Contrast = 0.5

        'トリミングの範囲を設定
        .CenterHeaderPicture.CropTop = 0
        .CenterHeaderPicture.CropBottom = 250
        .CenterHeaderPicture.CropLeft = 0
        .CenterHeaderPicture.CropRight = 210
        
        'ヘッダー中央に画像を表示
        .CenterHeader = "&G"
        
        'フッター中央に、ページ数と総ページ数を表示
        .CenterFooter = "&P / &N ページ"
    
    
    End With

    'プリンタとの通信を再開
    Application.PrintCommunication = True
    
    'プレビュー表示
    w.PrintPreview
    
End Sub

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

Sub Sample_HeaderFooter07()

Dim w As Worksheet

Dim pict1 As String, pict2 As String

Set w = ActiveSheet

pict1 = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "/sample01.jpg"

pict2 = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "/sample02.jpg"

'プリンタとの通信を遮断（印刷設定を高速化）

Application.PrintCommunication = False

With w.PageSetup

'先頭ページのみ他ページと異なるヘッダーおよびフッターを設定する

.DifferentFirstPageHeaderFooter = True

'偶数ページに別のヘッダーおよびフッターを設定する

.OddAndEvenPagesHeaderFooter = True

'【先頭ページのヘッダー・フッターの設定】

With .FirstPage

'ヘッダー中央に、文字列「[シート名] 先頭のページ」

'文字サイズ 24、色青、太字、二重下線

.CenterHeader.Text = "&24&K0000FF&B&E&A 先頭のページ"

'フッター中央に、ページ数と総ページ数を表示

.CenterFooter.Text = "&P / &N ページ"

End With

'【偶数ページのヘッダー・フッターの設定】

With .EvenPage

'表示する画像のパス＆名前

.CenterHeader.Picture.Filename = pict2

'画像の縦横サイズの比率を維持

.CenterHeader.Picture.LockAspectRatio = msoTrue

'元画像のサイズ 500

.CenterHeader.Picture.Width = 250

'元画像のサイズ 250

.CenterHeader.Picture.Height = 125

'画像の色（自動）

.CenterHeader.Picture.ColorType = msoPictureAutomatic

'画像の明度（ 50% ）

.CenterHeader.Picture.Brightness = 0.5

'画像のコントラスト（ 50% ）

.CenterHeader.Picture.Contrast = 0.5

'ヘッダー中央に画像を表示

.CenterHeader.Text = "&G"

'フッター中央に、ページ数と総ページ数を表示

.CenterFooter.Text = "&P / &N ページ"

End With

'【上記以外のページのヘッダー・フッターの設定】

'表示する画像のパス＆名前

.CenterHeaderPicture.Filename = pict1

'画像の比率を維持

'※元画像との比率が異なる場合は Height の値が基準となる

.CenterHeaderPicture.LockAspectRatio = msoTrue

'元画像のサイズ 500

.CenterHeaderPicture.Width = 500

'元画像のサイズ 300

.CenterHeaderPicture.Height = 150

'画像の色（自動）

.CenterHeaderPicture.ColorType = msoPictureAutomatic

'画像の明度（ 50% ）

.CenterHeaderPicture.Brightness = 0.5

'画像のコントラスト（ 50% ）

.CenterHeaderPicture.Contrast = 0.5

'トリミングの範囲を設定

.CenterHeaderPicture.CropTop = 0

.CenterHeaderPicture.CropBottom = 250

.CenterHeaderPicture.CropLeft = 0

.CenterHeaderPicture.CropRight = 210

'ヘッダー中央に画像を表示

.CenterHeader = "&G"

'フッター中央に、ページ数と総ページ数を表示

.CenterFooter = "&P / &N ページ"

End With

'プリンタとの通信を再開

Application.PrintCommunication = True

'プレビュー表示

w.PrintPreview

End Sub

実行結果

- ブック・シートの操作 EvenPage プロパティ, OddAndEvenPagesHeaderFooter プロパティ, PageSetup プロパティ, VBA基本, Worksheet オブジェクト, エクセルVBA, ブック・シートの操作, 印刷

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

: ユーザー設定のビュー（CustomView オブジェクト）

ユーザー設定のビュー CustomView オブジェクトは、登録されている各ビュ …

: ブックを保存する（Save メソッド）

ブックを保存する（Save メソッド）既存のブックを上書き保存するには、Sav …

: ウィンドウのタイトル（Window.Caption プロパティ）

ウィンドウのタイトル（Caption プロパティ） Windows.Captio …

: ワークブックを保護・保護を解除（Protect メソッド・Unprotect メソッド）

Protect メソッド・Unprotect メソッド Protect メソッド …

: シートを保護・保護したシートを解除する（Protect メソッド・Unprotect メソッド）

Protect メソッド・Unprotect メソッド Protect メソッド …

: ワークシートを参照する（Sheets プロパティ）

Sheets プロパティ Sheets プロパティは、Sheets コレクション …

: 新規ブック作成（Add メソッド）

新規にワークブックを作成する Workbooks コレクションの Add メソッ …

: 数式バーの設定（DisplayFormulaBar, FormulaBarHeight）

数式バーの設定数式バーの表示・非表示の設定を行うには、DisplayFormu …

: ワークシートをアクティブにする・選択する（Activate, Select）

Activate メソッド・Select メソッド Activate メソッドは …

: アウトライン記号の表示・非表示（DisplayOutline プロパティ）

アウトライン記号の表示・非表示（DisplayOutline プロパティ） Di …

PREV: 印刷設定（先頭ページのヘッダー・フッターを設定）DifferentFirstPageHeaderFooter, FirstPage
NEXT: 印刷設定を高速化（PrintCommunication プロパティ）

印刷設定（偶数ページのヘッダー・フッターを設定）OddAndEvenPagesHeaderFooter, EvenPage

偶数ページに別のヘッダーおよびフッターを設定

PageSetup.OddAndEvenPagesHeaderFooter プロパティ

引数・戻り値

PageSetup.EvenPage プロパティ

引数・戻り値

偶数ページに他のページと異なるヘッダーを設定した例

サンプルVBAソース

実行結果

Message コメントをキャンセル

関連記事

ユーザー設定のビュー（CustomView オブジェクト）

ブックを保存する（Save メソッド）

ウィンドウのタイトル（Window.Caption プロパティ）

ワークブックを保護・保護を解除（Protect メソッド・Unprotect メソッド）

シートを保護・保護したシートを解除する（Protect メソッド・Unprotect メソッド）

ワークシートを参照する（Sheets プロパティ）

新規ブック作成（Add メソッド）

数式バーの設定（DisplayFormulaBar, FormulaBarHeight）

ワークシートをアクティブにする・選択する（Activate, Select）

アウトライン記号の表示・非表示（DisplayOutline プロパティ）

SQL文を実行する(ADO)Execute メソッド

並べ替え（Sort オブジェクト, SortFields コレクション）

ブックのコピーを保存（SaveCopyAs メソッド）

テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

データベース（Oracle）に接続する（OLE DB を使用）

フィルタ解除して全データを表示（ShowAllData メソッド）

クエリにパラメータを渡して結果を取得する（ADO）Command オブジェクト・Execute メソッド

四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

データベース（Oracle）に接続する（ODBC を使用）

列名を取得、列番号を取得（Address プロパティ,Column プロパティ）