印刷:余白を設定 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ソースを実行後に「ページ設定」の「余白」タブを確認
関連記事
-
-
ウィンドウを拡大・縮小(Zoom プロパティ)
ウィンドウを拡大・縮小(Zoom プロパティ) ウィンドウの表示サイズをパーセン …
-
-
印刷のページ区切り(DisplayPageBreaks プロパティ)
DisplayPageBreaks プロパティ 印刷したあとや印刷プレビューを表 …
-
-
印刷時の改ページ設定(Add,ResetAllPageBreaks)
改ページの追加と解除 印刷時に改ページを指定するには、HPageBreaks コ …
-
-
ウィンドウ枠の固定(FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ)
ウィンドウ枠の固定と解除 ウィンドウ枠を固定するには FreezePanes プ …
-
-
ブックを参照(Workbooks プロパティ,Windows プロパティ)
アクティブなワークブックを参照 現在使用中のワークブック、複数ある場合は一番手前 …
-
-
印刷設定(ヘッダー/フッター)書式コード・VBAコード
印刷設定(ヘッダー/フッター)書式コード・VBAコード ヘッダーおよびフッター( …
-
-
印刷設定(ヘッダー・フッターに画像を設定)Graphic オブジェクト
Graphic オブジェクト Graphic オブジェクト は、ヘッダーおよびフ …
-
-
ワークシートをファイルに保存する(SaveAs メソッド)
SaveAs メソッド ワークシートを名前を付けてファイルに保存します。Work …
-
-
数式バーの設定(DisplayFormulaBar, FormulaBarHeight)
数式バーの設定 数式バーの表示・非表示の設定を行うには、DisplayFormu …
-
-
新しいウィンドウを開く(NewWindow メソッド)
NewWindow メソッド NewWindow メソッドで、任意のブックのコピ …