![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
お世話になります。
ExcelVBAで、横の幅をいっぱいにとったときの拡大率を取得しようとしていますが、うまくいかず困っております。
With Worksheets(1).PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1000
End With
で横1ページに合わせて印刷できる設定になりますが、このときの拡大率(Zoom)を変数に代入することができません。どなたか、お助けいただけないでしょうか。
どうか、よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんにちは。
(2005年5月くらいのwww2.moug.net過去ログ情報から)
Sub try()
'自動設定{横:1,縦:無指定}
ExecuteExcel4Macro "Page.Setup(,,,,,,,,,,,,{1,#N/A})"
'zoom設定{横:無指定,縦:無指定}
ExecuteExcel4Macro "Page.Setup(,,,,,,,,,,,,{#N/A,#N/A})"
'zoom取得
MsgBox ExecuteExcel4Macro("Get.Document(62)")
End Sub
Excel4.0マクロ関数を実行する、[ExecuteExcel4Macro メソッド]を使った例です。
これでないと取れないと思います。
ActiveSheet限定ですが、PageSetupはVBAより高速です。
(参考)Excel4.0マクロ関数のヘルプファイルは下記より。
http://support.microsoft.com/kb/128185/ja
pauNed 様
ありがとうございます!
すごいです! こんな方法があるんですね。
感動しました!
ある本では、sendkeysで倍率を表示する方法がのっていたのですが、バージョンによる汎用性がないような気がしました。
私は、印刷可能範囲とデータのサイズをグチャグチャと計算して、割り算でもする方法があるのかと思っていました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
Excel VBA のdebug(F8キー) が...
-
マクロ 実行ボタンを押さずに...
-
エクセル グラフの軸の最小値最...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
Excelのワークシート上に検索窓...
-
powerpointにwebページを挿入
-
Excel2000 データの並べ替えで...
-
モジュール内のマクロを全て実...
-
マクロ実行後元に戻すことは
-
Excelマクロからのデータアクセ...
-
エクセルで複数のシートをまと...
-
マクロボタンをある条件の時に...
-
エクセルのマクロ機能で前のシ...
-
VBAが止まらない
-
マクロを実行するとフリーズし...
-
TeraTermのマクロについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
Excelのワークシート上に検索窓...
-
Excel VBA のdebug(F8キー) が...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
エクセルのマクロ機能で前のシ...
-
エクセル グラフの軸の最小値最...
-
モジュール内のマクロを全て実...
-
EXCEL 複数のシートの同一の位...
-
エクセルで複数のシートをまと...
-
ワードからエクセルへ貼り付け...
-
【Excel VBA】エラー番号400
-
Wordの画面を左右にスクロール...
-
Excelマクロでオプションボタン...
-
TeraTermのマクロについて
-
マクロ ブックをマクロなしでコ...
-
Wordで「原稿用紙○枚」を換算す...
おすすめ情報