印刷:余白を設定 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 プロパティ)
アクティブなワークブックを参照 現在使用中のワークブック、複数ある場合は一番手前 …
-
-
画面の上端・左端を設定(ScrollRow プロパティ、ScrollColumn プロパティ)
画面の上端・左端を設定 ScrollRow プロパティで、指定した行を画面上端に …
-
-
選択されているシートを参照する(SelectedSheets プロパティ)
SelectedSheets プロパティ 選択されているすべてのシートをあらわす …
-
-
印刷範囲の設定・解除(PageSetup.PrintArea プロパティ)
PageSetup.PrintArea プロパティ 印刷範囲を設定するには、Pa …
-
-
ブックのパスを取得(FullName プロパティ,Path プロパティ)
FullName プロパティ・Path プロパティ ブックのパス(保存場所)を調 …
-
-
ユーザー設定のビュー(CustomViews プロパティ)
ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …
-
-
ワークシートにクリップボードの内容を貼り付ける(Paste メソッド)
Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …
-
-
印刷設定(ヘッダーに画像を指定)LeftHeaderPicture, CenterHeaderPicture, RightHeaderPicture
ヘッダーに画像を表示するには LeftHeaderPicture プロパティ、C …
-
-
印刷の用紙サイズを設定(PageSetup.PaperSize プロパティ)
PageSetup.PaperSize プロパティ PageSetup.Pape …
-
-
並べて比較(CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide)
並べて比較(CompareSideBySideWith メソッド) Compar …