スキルアップ・問題解決なら、モーグにおまかせ！

それぞれの余白をポイント単位で設定します。

●詳細●
ページ設定の画面で設定する際に使用されている単位はセンチメートルです。
余白と同じポイント単位で設定したい場合には、センチからポイント単位に変換するCentimetersToPointsメソッドを使ってください。

  構文  Object.LeftMargin       左余白の設定/取得
        Object.RightMargin      右余白の設定/取得
        Object.TopMargin        上余白の設定/取得
        Object.BottomMargin     下余白の設定/取得
        Object.HeaderMargin     ヘッダーの余白の設定/取得
        Object.FooterMargin     フッターの余白の設定/取得


  設定項目              内容
  Object                PageSetupオブジェクト [省略不可]

次のサンプルは、アクティブシートの左右の余白を1センチに、上下余白を3センチに、ヘッダーとフッターの余白を1.5センチに設定します。

●サンプル●
Sub MarginSamp1()

    With ActiveSheet.PageSetup
        .LeftMargin = Application.CentimetersToPoints(1)
        .RightMargin = Application.CentimetersToPoints(1)
        .TopMargin = Application.CentimetersToPoints(3)
        .BottomMargin = Application.CentimetersToPoints(3)
        .HeaderMargin = Application.CentimetersToPoints(1.5)
        .FooterMargin = Application.CentimetersToPoints(1.5)
        '---左右余白を１センチに、上下余白を3センチに、
        '---ヘッダー・フッター余白を1.5センチに設定
    End With

End Sub

●注意●
マクロ記録時には、センチメートル単位で設定したものが、ポイント単位に変換された結果の数値で記録されます。もちろん、そのままでも動作しますが、プログラムの可読性や後々の仕様変更を考えれば、CentimetersToPointsメソッドを使用して書きなおした方がよいでしょう。