ページ設定 余白指定cm(センチメートル)で指定する
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
'通常、マクロの記録では単位（インチ）で記録されます。 'これをステートメント記述する場合に役立ちます。 '使用するメソッドは、CentimeterToPoints(○○)です。 '○○の中にセンチの数値を指定します。 'ちなみに、1inch=72pt=2.54cm(1pt=約0.35mm) です。 With ActiveSheet.PageSetup .LeftMargin = Application.CentimetersToPoints(2) .RightMargin = Application.CentimetersToPoints(2) .TopMargin = Application.CentimetersToPoints(2) .BottomMargin = Application.CentimetersToPoints(2.5) .HeaderMargin = Application.CentimetersToPoints(2.5) .FooterMargin = Application.CentimetersToPoints(2.5) End With |