Excel VBA: PageSetup.OddAndEvenPagesHeaderFooter プロパティの使用方法

Excel VBAでは、ページセットアップオブジェクトの OddAndEvenPagesHeaderFooter プロパティを使用して、奇数ページと偶数ページで異なるヘッダーとフッターを設定できます。このプロパティはブール型（True/False）の値を持ちます。

基本的な使用方法

OddAndEvenPagesHeaderFooter プロパティを True に設定すると、奇数ページと偶数ページで異なるヘッダーとフッターを設定できます。反対に、このプロパティを False に設定すると、すべてのページに同じヘッダーとフッターが適用されます。

具体的なコード例

以下のVBAコードは、ActiveSheetの奇数ページと偶数ページに異なるヘッダーとフッターを設定する例です。

Sub SetupHeadersAndFooters()
    With ActiveSheet.PageSetup
        .OddAndEvenPagesHeaderFooter = True
        
        .LeftHeader = "奇数ページのヘッダー"
        .LeftFooter = "奇数ページのフッター"
        
        .EvenPage.LeftHeader.Text = "偶数ページのヘッダー"
        .EvenPage.LeftFooter.Text = "偶数ページのフッター"
    End With
End Sub

このコードの中で、まず OddAndEvenPagesHeaderFooter プロパティを True に設定します。これにより、奇数ページと偶数ページで異なるヘッダーとフッターを設定できるようになります。次に、LeftHeader と LeftFooter プロパティを使用して奇数ページのヘッダーとフッターを設定し、EvenPage.LeftHeader.Text と EvenPage.LeftFooter.Text プロパティを使用して偶数ページのヘッダーとフッターを設定します。