Access VBAでExcelシートのページ設定を横向きに

「AccessVBA Excelページ設定 横向き Pagesetup」
といった検索キーワードでアクセスがありました。

Excelでは、［ページ設定］ダイアログボックス－［ページ］タブの［印刷の向き］欄に「横」オプションがあります。

この設定をAccess VBAから行うにはどのようなコードを書けばいいのか調べていらしたのでしょう。

Excelシートのページ設定を横向きにするサンプルプロシージャ

横向きに設定したいExcelシートがアクティブな状態で、以下のSubプロシージャを実行してください。

正常に実行できると
「アクティブなExcelシートのページ設定を横向きにしました。」
とメッセージが表示されます。

サンプルプロシージャで行っている処理

定数xlLandscapeの用意

ページの向きを取得/設定する、ExcelのPageSetup.Orientationプロパティには、

Excel.XlPageOrientation列挙型に定義されている定数を指定できます。

ここでは、Excelへの参照設定が行われていない環境を想定して、この横向きを指定する定数xlLandscapeをコード内で準備しています。

Const xlLandscape = 2

Excelへの参照設定が行われている環境であれば、この行は不要です。

VBA.GetObjectで起動済Excel.Applicationの取得

次に、VBAのGetObject関数を使って、起動しているExcel.Applicationへの参照を取得しています。

Dim xl_app As Object
Set xl_app = GetObject(Class:="Excel.Application")

この後の、変数xl_appを経由した処理は、実質的にExcel VBAです。

アクティブなExcelシートの取得

つづいて、Excel.Application.ActiveSheetプロパティを使って

アクティブなシートを表すWorksheetオブジェクトを取得して、変数xl_shtに代入しています。

Dim xl_sht As Object
Set xl_sht = xl_app.ActiveSheet

横向きに設定

そして、Worksheet.PageSetupプロパティでExcel.PageSetupオブジェクトを取得して、

Excel.PageSetup.Orientationプロパティに

xl_sht.PageSetup.Orientation = xlLandscape

定数xlLandscapeを指定することで、横向きにしています。