印刷設定（フッターに文字列を指定）LeftFooter,CenterFooter,RightFooter

サイト管理人

9年前

PageSetup.LeftFooter プロパティ

PageSetup.LeftFooter プロパティを使用して、左フッターの文字列を取得または設定します。

【書式】

＜取得＞
object.PageSetup.LeftFooter

＜設定＞
object.PageSetup.LeftFooter = string

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
string ・・・文字列、VBAコードなどを指定します。フッターの書式は、書式コードを使用して設定します。VBAコード、書式コードは、印刷設定（ヘッダー／フッター）書式コード・VBAコードを参照してください。

PageSetup.RightFooter プロパティ

PageSetup.RightFooter プロパティを使用して、右フッターの文字列を取得または設定します。

【書式】

＜取得＞
object.PageSetup.RightFooter

＜設定＞
object.PageSetup.RightFooter = string

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
string ・・・文字列、VBAコードなどを指定します。フッターの書式は、書式コードを使用して設定します。VBAコード、書式コードは、印刷設定（ヘッダー／フッター）書式コード・VBAコードを参照してください。

PageSetup.CenterFooter プロパティ

PageSetup.CenterFooter プロパティを使用して、フッター中央の文字列を取得または設定します。

【書式】

＜取得＞
object.PageSetup.CenterFooter

＜設定＞
object.PageSetup.CenterFooter = string

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
string ・・・文字列、VBAコードなどを指定します。フッターの書式は、書式コードを使用して設定します。VBAコード、書式コードは、印刷設定（ヘッダー／フッター）書式コード・VBAコードを参照してください。

フッターに文字列を設定する

サンプルVBAソース

　
Sub Sample_HeaderFooter02()

    Dim w As Worksheet
    Set w = ActiveSheet
    
    With w.PageSetup
    
        
        '左フッターの設定（文字列「あいうえお」フォントサイズ 18pt に設定）
        .LeftFooter = "&18あいうえお"

        '中央フッターの設定（日付を表示、文字列「Time:」は斜体・太字を設定、時刻を表示）
        .CenterFooter = "&D &B&ITime:&I&B &T"

        '右フッターの設定（文字列「かきくけこ」フォントカラー緑に設定）
        .RightFooter = "&K00FF00かきくけこ"

    
    End With
    
    w.PrintPreview

End Sub

Sub Sample_HeaderFooter02()

Dim w As Worksheet

Set w = ActiveSheet

With w.PageSetup

'左フッターの設定（文字列「あいうえお」フォントサイズ 18pt に設定）

.LeftFooter = "&18あいうえお"

'中央フッターの設定（日付を表示、文字列「Time:」は斜体・太字を設定、時刻を表示）

.CenterFooter = "&D &B&ITime:&I&B &T"

'右フッターの設定（文字列「かきくけこ」フォントカラー緑に設定）

.RightFooter = "&K00FF00かきくけこ"

End With

w.PrintPreview

End Sub

PageSetup.LeftFooter プロパティ

引数・戻り値

PageSetup.RightFooter プロパティ

引数・戻り値

PageSetup.CenterFooter プロパティ

引数・戻り値

フッターに文字列を設定する

サンプルVBAソース

実行結果