印刷:余白を設定 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ソースを実行後に「ページ設定」の「余白」タブを確認
関連記事
-
-
印刷設定(ヘッダーに画像を指定)LeftHeaderPicture, CenterHeaderPicture, RightHeaderPicture
ヘッダーに画像を表示するには LeftHeaderPicture プロパティ、C …
-
-
ブックのプロパティ(BuiltinDocumentProperties プロパティ)
BuiltinDocumentProperties プロパティ ブックのプロパテ …
-
-
ブックのコピーを保存(SaveCopyAs メソッド)
SaveCopyAs メソッド SaveCopyAs メソッド は、現在開いてい …
-
-
ユーザー設定のドキュメントプロパティ(CustomDocumentProperties プロパティ)
CustomDocumentProperties プロパティ ユーザー設定のドキ …
-
-
ウィンドウのタイトル(Window.Caption プロパティ)
ウィンドウのタイトル(Caption プロパティ) Windows.Captio …
-
-
シート見出しの表示・非表示(DisplayWorkbookTabs プロパティ)
シート見出しの表示・非表示(DisplayWorkbookTabs プロパティ) …
-
-
共有ファイルを開いているユーザー情報を取得(UserStatus プロパティ)
共有ファイルを開いているユーザー情報を取得 UserStatus プロパティは、 …
-
-
印刷する用紙の向きを設定(PageSetup.Orientation プロパティ)
PageSetup.Orientation プロパティ PageSetup.Or …
-
-
ワークブックを保護・保護を解除(Protect メソッド・Unprotect メソッド)
Protect メソッド・Unprotect メソッド Protect メソッド …
-
-
指定された情報をブックから削除(RemoveDocumentInformation メソッド)
RemoveDocumentInformation メソッド 指定された種類の情 …