![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつもお世話になります。
エクセルのイメージコントロールを使用しているのですが、
なかなかうまく行かないので、アドバイスをお願いします。
シートにイメージコントロールをいくつか(8個)配置しました。
マクロで LoadPicture を使用し画像を読み込ませました。
Rangeで範囲を指定して印刷しました。
一旦、Sheet1.Image1.Picture = Nothing と開放しました。
そのイメージコントロールに別画像を LoadPicture させました。
同様に印刷させましたが、画像は最初に読み込ませたもののままです。
マクロが終了して見ると、最新の画像に更新されているのですが、
印刷したものでは(プリビューでも)更新されません。
Redraw させたり Refresh させるコマンドはないかと思いましたが見つかりません。
同じマクロで画像のコメントをセルに表示させているのですが、
こちにはどんどん更新しています。
画像だけが、最初に読み込んだ画像のままで印刷されてしまいます。
印刷範囲は常に同じです。
原因なり対処法なりをお教え下さいますようお願いします。
No.2ベストアンサー
- 回答日時:
こんにちは。
原因はお分かりのようなので回避策を。。
再描画させてから印刷させる為にPrintOut (or PrintPreview)の前に次の2行を挿入
For i = 1 To 1000: DoEvents: Next i
Application.Wait Now() + TimeValue("00:00:03")
Forのカウンターの上限は適宜変更。
また、Application.Waitはなくても上手くいくとは思いますが念のため。。
DoEvents,Waitはご自分でお調べください。
以上です。
ありがとうございます。
一旦戻る方法か、待って様子を見る方法を考えてみていました。
DoEventsは思いつきませんでした。
おかげさまで解決できました。
また機会がございましたら、よろしくお願い致します。
No.3
- 回答日時:
こんにちは。
No.2さんのコードで解決だと思いますが、
経験上、
DoEvents: DoEvents
の2回で大丈夫なような気もします。
(Application.Waitなし)
WorksheetにActiveXコントロールを貼り付けて似たような事をする場合は
一度OSに制御を渡さないといけないという事なのでしょうね。
DoEvents1コじゃなぜダメなのかは知りませんけど。^ ^;
ありがとうございます。
確かに2回で大丈夫でした。
試しに1回でもやってみましたが、本当ですね。
グリッドか何かで、2回Updateしないと更新してくれないものもあったような気がします。
ペアでないと寂しいのでしょうか。
助かりました。
またこんな機会がありましたら、よろしくお願い致します。
No.1
- 回答日時:
直接関係があるかは解りませんが、参考までにサイトをご紹介します。
再描画の前にメッセージボックスの表示が必要かもしれません。
参考URL:http://support.microsoft.com/kb/242017/ja
早速の回答ありがとうございます。
バグの殿堂マイクロソフトさんのページを見てみました。
サブに行きっぱなしではなく、一旦戻るかしないとダメなんですね。
たしか、プログレスバーでも、そんな現象があったような気がします。
これからもよろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- PDF 画像調整してスクショし保存した画像をPC画面と同画質で印刷する方法 1 2022/03/31 19:09
- その他(IT・Webサービス) 画像調整してスクショし保存した画像をPC画面と同画質で印刷する方法 3 2022/03/31 19:11
- PDF 画像調整してスクショし保存した画像を印刷する方法 1 2022/03/31 18:42
- Visual Basic(VBA) マクロについて教えてください。 3 2023/06/09 17:37
- プリンタ・スキャナー 印刷時にグリス?が付着 1 2023/07/19 14:24
- Illustrator(イラストレーター) 印刷プレビューに画像が表示されない 3 2022/09/06 14:34
- Illustrator(イラストレーター) イラストレーターでA3用のサイズでポスターを作成しましたが、B5サイズに縮め変更したいです。しかしB 4 2022/07/19 20:30
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
バーコードコントロールが印刷時に反映されない
Excel(エクセル)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
EXCELで作成したバーコードの更新方法について
Excel(エクセル)
-
-
4
EXECL バーコード生成でBarCodeCtrl のLinkedCellについて
Excel(エクセル)
-
5
Excel VBAによる連続印刷について処理の順番
Excel(エクセル)
-
6
マクロ実行後に別シートの残像が残り、オブジェクトが見えなくなる
Visual Basic(VBA)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
エクセルのマクロで印刷プレビューを閉じる方法
Excel(エクセル)
-
9
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
10
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
-
11
UserForm1.Showでエラーになります。
工学
-
12
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
13
Excel ユーザーフォームで表示させた画像をユーザーフォーム上で保存したい
Visual Basic(VBA)
-
14
エクセル バーコード作成で他のシートを参照するには?
Excel(エクセル)
-
15
EXCELでバーコードを作成すると白くなってコードが見えません
その他(Microsoft Office)
-
16
ListView 項目の選択/選択解除について
Visual Basic(VBA)
-
17
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
18
エクセルVBAでmeに相当するものは?
Excel(エクセル)
-
19
excelでVBA実行後に画面に残るゴミを無くしたい。
Excel(エクセル)
-
20
Excel VBA ワークシートに貼られたボタン名(Caption)をセルの値から取得するには
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コントロールの書式設定で、“コ...
-
エクセルのコントロールツール...
-
連続で印刷すると画像が更新さ...
-
フォームでPDFを表示させた...
-
ActiveXコントロールを.NETにイ...
-
VB6.0のデザイン時 コントロー...
-
Win32のリストコントロールで縦...
-
DateTimePickerでに年月までし...
-
コモンダイアログコントロール...
-
CreateWindowでSTATICコントロ...
-
ダイアログのスクロールバー
-
VB.Net Tabコントロール中のす...
-
CEdit の内容が変わった時にメ...
-
MFC CFileDialog
-
スピンボタンを右クリックして...
-
アイテムを点滅させる
-
C#.NETでのCOMコンポーネント作...
-
C#でChartコントロールを...
-
Excel VBAでのMultipageの選択
-
VC6 コントロールウインドウの表示
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コントロールの書式設定で、“コ...
-
エクセルのコントロールツール...
-
DateTimePickerでに年月までし...
-
フォームでPDFを表示させた...
-
スピンボタンを右クリックして...
-
連続で印刷すると画像が更新さ...
-
C++6.0でのresource.hについて
-
ActiveXコントロールを.NETにイ...
-
コモンダイアログコントロール...
-
EXCELVBA リストボックスで選択...
-
エクセル - リストボックスのマ...
-
警告表示を非表示にしたい
-
CEdit の内容が変わった時にメ...
-
ワードのドロップダウンリスト
-
文字色を変えたい(ACCESS VBA)
-
WM_SIZEを発生させる方法
-
VBAでリストボックス内で↑↓の操...
-
WS_TABSTOPが機能するコントロ...
-
VB6.0のデザイン時 コントロー...
-
Excel VBAでのMultipageの選択
おすすめ情報