印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

サイト管理人

9年前

余白を設定する

余白を設定する単位は、pt（ポイント：約 0.03528 cm）です。上下左右のほかヘッダー、フッターの余白を設定することができます。（TopMargin プロパティ、BottomMargin プロパティ、LeftMargin プロパティ、RightMargin プロパティ、HeaderMargin プロパティ、FooterMargin プロパティ）

Excel の「ページ設定」ダイアログボックスの [余白] タブで設定できる各項目の単位は、cm（センチメートル）です。余白をセンチメートル単位で設定するには、Application.CentimetersToPoint メソッド を使用します。また、インチ単位で設定するには、Application.InchesToPoint メソッド を使用します（ポイント単位の値に変換するを参照）。

上下の余白を設定（TopMargin プロパティ・BottomMargin プロパティ）

【書式】

＜上余白取得＞
object.PageSetup.TopMargin

＜上余白設定＞
object.PageSetup.TopMargin = top_double

＜下余白取得＞
object.PageSetup.BottomMargin

＜下余白設定＞
object.PageSetup.BottomMargin = bot_double

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
top_double ・・・上余白を pt（ポイント）単位の値で指定します。値は、倍精度浮動小数点型（Double）を使用します。
bot_double ・・・下余白を pt（ポイント）単位の値で指定します。値は、倍精度浮動小数点型（Double）を使用します。

左右の余白を設定（LeftMargin プロパティ・RightMargin プロパティ）

【書式】

＜左余白取得＞
object.PageSetup.LeftMargin

＜左余白設定＞
object.PageSetup.LeftMargin = right_double

＜右余白取得＞
object.PageSetup.RightMargin

＜右余白設定＞
object.PageSetup.RightMargin = left_double

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
right_double ・・・左余白を pt（ポイント）単位の値で指定します。値は、倍精度浮動小数点型（Double）を使用します。
left_double ・・・右余白を pt（ポイント）単位の値で指定します。値は、倍精度浮動小数点型（Double）を使用します。

ヘッダー・フッターの余白を設定（HeaderMargin プロパティ・FooterMargin プロパティ）

【書式】

＜ヘッダー余白取得＞
object.PageSetup.HeaderMargin

＜ヘッダー余白設定＞
object.PageSetup.HeaderMargin = head_double

＜フッター余白取得＞
object.PageSetup.FooterMargin

＜フッター余白設定＞
object.PageSetup.FooterMargin = foot_double

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
head_double ・・・ヘッダーの余白を pt（ポイント）単位の値で指定します。値は、倍精度浮動小数点型（Double）を使用します。
foot_double ・・・フッターの余白を pt（ポイント）単位の値で指定します。値は、倍精度浮動小数点型（Double）を使用します。

PageSetup.AlignMarginsHeaderFooter プロパティ

ヘッダーまたはフッターの余白をワークシートの左右の余白に合わせるには、PageSetup.AlignMarginsHeaderFooter プロパティ に、True を指定します。値の取得および設定が可能です。ブール型（Boolean）の値を使用します。

【書式】

＜取得＞
object.PageSetup.AlignMarginsHeaderFooter

＜設定＞
object.PageSetup.AlignMarginsHeaderFooter = boolean

引数・戻り値

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

余白を設定する例

サンプルVBAソース

　
Sub Sample_Margin()

    Dim w As Worksheet
    Set w = ActiveSheet
    
    With w.PageSetup
        
        '上余白を 1.9cm に設定
        .TopMargin = Application.CentimetersToPoints(1.9)
        
        '下余白を 1.9cm に設定
        .BottomMargin = Application.CentimetersToPoints(1.9)
        
        '右余白を 1.8cm に設定
        .LeftMargin = Application.CentimetersToPoints(1.8)
        
        '左余白を 1.8cmm に設定
        .RightMargin = Application.CentimetersToPoints(1.8)
        
        'ヘッダー余白を 0.8cm に設定
        .HeaderMargin = Application.CentimetersToPoints(0.8)
        
        'フッター余白を 0.8cm に設定
        .FooterMargin = Application.CentimetersToPoints(0.8)
    
    End With
            

End Sub

Sub Sample_Margin()

Dim w As Worksheet

Set w = ActiveSheet

With w.PageSetup

'上余白を 1.9cm に設定

.TopMargin = Application.CentimetersToPoints(1.9)

'下余白を 1.9cm に設定

.BottomMargin = Application.CentimetersToPoints(1.9)

'右余白を 1.8cm に設定

.LeftMargin = Application.CentimetersToPoints(1.8)

'左余白を 1.8cmm に設定

.RightMargin = Application.CentimetersToPoints(1.8)

'ヘッダー余白を 0.8cm に設定

.HeaderMargin = Application.CentimetersToPoints(0.8)

'フッター余白を 0.8cm に設定

.FooterMargin = Application.CentimetersToPoints(0.8)

End With

End Sub

実行結果

サンプルVBAソースを実行後に「ページ設定」の「余白」タブを確認