印刷:余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin
2015/10/16
余白を設定する
余白を設定する単位は、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ソース
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | 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ソースを実行後に「ページ設定」の「余白」タブを確認
関連記事
-  
              
- 
      ブックを参照(Workbooks プロパティ,Windows プロパティ)アクティブなワークブックを参照 現在使用中のワークブック、複数ある場合は一番手前 … 
-  
              
- 
      枠線の表示・非表示の設定(DisplayGridlines プロパティ)枠線の表示・非表示の設定 枠線の表示・非表示を設定するには、DisplayGri … 
-  
              
- 
      枠線を含めて印刷(PageSetup.PrintGridlines プロパティ)PageSetup.PrintGridlines プロパティ PageSetup … 
-  
              
- 
      ウィンドウのタイトル(Window.Caption プロパティ)ウィンドウのタイトル(Caption プロパティ) Windows.Captio … 
-  
              
- 
      並べて比較(CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide)並べて比較(CompareSideBySideWith メソッド) Compar … 
-  
              
- 
      行列の見出しの表示・非表示(DisplayHeadings プロパティ)DisplayHeadings プロパティ 行と列の見出しの表示・非表示を設定お … 
-  
              
- 
      ウィンドウの位置を入れ替える(ActivatePrevious メソッド、ActivateNext メソッド)ウィンドウの位置を入れ替える ActivatePrevious メソッド、Act … 
-  
              
- 
      印刷の倍率(拡大/縮小)(PageSetup.Zoom プロパティ)PageSetup.Zoom プロパティ PageSetup.Zoom プロパテ … 
-  
              
- 
      ブック・シートの名前を取得・設定(Name プロパティ)ワークブックの名前を取得 Name プロパティで、ワークブックの名前を取得します … 
-  
              
- 
      印刷設定(フッターに画像を指定)LeftFooterPicture,CenterFooterPicture,RightFooterPictureフッターに画像を表示するには LeftFooterPicture プロパティ、C … 
 
        

