質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.31%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

4016閲覧

Excel VBAでPageSetup.PageSizeは設定可能でしょうか?

sfl

総合スコア13

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2021/08/01 17:01

Excelで作成した数表をPDF出力するVBAコードを書くうち、プリントアウトが適切な大きさとなるようページサイズを決めておく必要があると感じ、

VBA

1With ActiveSheet.PageSetup 2 .Orientation = xlLandscape 3 .PageSize = xlPaperA4 4End With

のように記述して試したところ、.PageSizeの行でエラー(実行時エラー'483': オブジェクトは、このプロパティまたはメソッドをサポートしていません)が発生してしまいました。
理由が分からないので、

VBA

1Debug.Print ".Orientation: " & ActiveSheet.PageSetup.Orientation 2Debug.Print ".PageSize: " & ActiveSheet.PageSetup.PageSize

のようにしてプロパティが有効かどうかを確かめようとしたところ、.Orientationは値が取れましたが.PageSizeの行ではやはり上と同じエラーとなりました。
このことから .PageSize プロパティは存在しないのではないかと思ったのですが実際はどうなんでしょうか?
VBAからページサイズを設定する方法として何が正解なのでしょうか?

当方で確認したExcelのバージョンは、サブスクリプション Microsoft 365 / Excel バージョン2107(ビルド 14228.20204 クイック実行)でした。
どうかご教示よろしくお願いします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

PageSizeではなくPaperSizeです。
PageSetup.PaperSize プロパティ

PageSetupのプロパティについてはこちら
PageSetup オブジェクト (Excel)

投稿2021/08/01 23:52

radames1000

総合スコア1925

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

sfl

2021/08/02 00:31

ご指摘ありがとうございました。 いったいどこでPaperをPageと間違えたのか、視野狭窄になっていました。 おかげで正しくサイズを指定できました。 ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.31%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問