印刷:余白を設定 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ソースを実行後に「ページ設定」の「余白」タブを確認
関連記事
-
-
ウィンドウの位置を入れ替える(ActivatePrevious メソッド、ActivateNext メソッド)
ウィンドウの位置を入れ替える ActivatePrevious メソッド、Act …
-
-
ブック・シートの名前を取得・設定(Name プロパティ)
ワークブックの名前を取得 Name プロパティで、ワークブックの名前を取得します …
-
-
白黒印刷(PageSetup.BlackAndWhite プロパティ)
PageSetup.BlackAndWhite プロパティ PageSetup. …
-
-
印刷時の改ページ設定(Add,ResetAllPageBreaks)
改ページの追加と解除 印刷時に改ページを指定するには、HPageBreaks コ …
-
-
ブックを開く(Open メソッド)
ブックを開く(Open メソッド) ブックを開くには、Workbooks コレク …
-
-
PDF または XPS 形式で出力(ExportAsFixedFormat メソッド)
ExportAsFixedFormat メソッド ブックやシートの内容を PDF …
-
-
印刷の先頭のページ番号を設定(PageSetup.FirstPageNumber プロパティ)
PageSetup.FirstPageNumber プロパティ PageSetu …
-
-
ブックを保存する(Save メソッド)
ブックを保存する(Save メソッド) 既存のブックを上書き保存するには、Sav …
-
-
画面の上端・左端を設定(ScrollRow プロパティ、ScrollColumn プロパティ)
画面の上端・左端を設定 ScrollRow プロパティで、指定した行を画面上端に …
-
-
印刷設定(ページごとに異なるヘッダー・フッターを設定)Page オブジェクト・HeaderFooter オブジェクト
Page オブジェクト ページごとに異なるヘッダーおよびフッターを設定する場合、 …