ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

印刷:余白を設定 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ソース


実行結果

サンプルVBAソースを実行後に「ページ設定」の「余白」タブを確認

印刷 余白の設定例


 - ブック・シートの操作 , , , , , , , , , , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

  関連記事

表示されているセル範囲を取得(VisibleRange プロパティ)

VisibleRange プロパティ 現在表示されているセル範囲(Range オ …

PrecisionAsDisplayed プロパティ 01
計算精度を設定する(PrecisionAsDisplayed プロパティ)

PrecisionAsDisplayed プロパティ PrecisionAsDi …

Window.Caption
並べて比較(CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide)

並べて比較(CompareSideBySideWith メソッド) Compar …

ページ数に合わせて印刷(FitToPagesTall, FitToPagesWide)

PageSetup.FitToPagesTall プロパティ PageSetup …

印刷設定(ヘッダーに文字列を指定)LeftHeader,CenterHeader,RightHeader

PageSetup.LeftHeader プロパティ PageSetup.Lef …

ユーザー設定のビュー(CustomViews プロパティ)

ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …

アウトライン記号の表示・非表示(DisplayOutline プロパティ)

アウトライン記号の表示・非表示(DisplayOutline プロパティ) Di …

スクロール(LargeScroll メソッド、Smallscroll メソッド)

ワークシートをスクロールする ワークシートをスクロールするには、LargeScr …

セルのコメントを印刷(PageSetup.PrintComments プロパティ)

PageSetup.PrintComments プロパティ PageSetup. …

Paste メソッド 使用例_1
ワークシートにクリップボードの内容を貼り付ける(Paste メソッド)

Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …