お世話になります。
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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- PDF 画像調整してスクショし保存した画像をPC画面と同画質で印刷する方法 1 2022/03/31 19:09
- その他(IT・Webサービス) 画像調整してスクショし保存した画像をPC画面と同画質で印刷する方法 3 2022/03/31 19:11
- PDF 画像調整してスクショし保存した画像を印刷する方法 1 2022/03/31 18:42
- Excel(エクセル) Excelでこういうカードの作り方 枠線の引き方や、挿入画像の拡大縮小など わかる方教えてください、 2 2022/05/03 21:22
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Visual Basic(VBA) 改ページ 2 2023/03/10 21:29
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
Excelのワークシート上に検索窓...
-
Excelを開いた時に表示さ...
-
複数ファイルにある特定のシー...
-
AccessのテーブルデータをExcel...
-
ワードからエクセルへ貼り付け...
-
Excel VBA のdebug(F8キー) が...
-
【Excel VBA】エラー番号400
-
モジュール内のマクロを全て実...
-
ワードで画像を自動で挿入する方法
-
エクセル 自動で別シートへ並...
-
エクセル グラフの軸の最小値最...
-
Excelマクロでオプションボタン...
-
エクセル テキスト追加マクロ...
-
TeraTermのマクロについて
-
エラーになってないのにVBA...
-
VBAでEXCELに埋め込んだPDFを開...
-
Wordのアンケート用紙に通し番...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
Excel VBA のdebug(F8キー) が...
-
EXCELのセルへ、デジタル時計を...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
Excelのワークシート上に検索窓...
-
【Excel VBA】エラー番号400
-
ワードからエクセルへ貼り付け...
-
Excelマクロでオプションボタン...
-
エクセルのマクロ機能で前のシ...
-
エクセルで複数のシートをまと...
-
Wordの画面を左右にスクロール...
-
エクセル グラフの軸の最小値最...
-
マクロ ブックをマクロなしでコ...
-
EXCEL 複数のシートの同一の位...
-
モジュール内のマクロを全て実...
-
Wordで「原稿用紙○枚」を換算す...
-
TeraTermのマクロについて
おすすめ情報