Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11247 / 13645 ツリー ←次へ | 前へ→

【17207】はじめまして やすっぺ 04/8/24(火) 18:40 質問[未読]
【17212】Re:はじめまして IROC 04/8/24(火) 20:05 回答[未読]
【17216】Re:はじめまして やすっぺ 04/8/24(火) 21:21 発言[未読]
【17229】Re:はじめまして IROC 04/8/25(水) 8:49 回答[未読]

【17207】はじめまして
質問  やすっぺ  - 04/8/24(火) 18:40 -

引用なし
パスワード
   ワークシートオブジェクトに、
If Range("aj9") = 1 Then
ActiveSheet.Shapes("Picture 473").Visible = True
Application.Wait Time:=Now + TimeValue("00:00:01")
ActiveSheet.Shapes("Picture 473").Visible = False
End If
というコードにして、「図473」を1秒だけ表示し、その後見えなくするようにしたかったのですが、全く違う動作をしてしまいます。何がおかしいでしょうか。

【17212】Re:はじめまして
回答  IROC  - 04/8/24(火) 20:05 -

引用なし
パスワード
   >全く違う動作をしてしまいます。何がおかしいでしょうか。

どんな動作ですか?

【17216】Re:はじめまして
発言  やすっぺ  - 04/8/24(火) 21:21 -

引用なし
パスワード
   ▼IROC さん:
>>全く違う動作をしてしまいます。何がおかしいでしょうか。
>
>どんな動作ですか?

そうですね、この場合だと何も起こらずに1秒停止して、チラッと画像が点滅を1回だけしてまた1秒待ってやっと終わる・・・みたいな。。。
分かりにくくてすみません。

【17229】Re:はじめまして
回答  IROC  - 04/8/25(水) 8:49 -

引用なし
パスワード
   Wait の行のまえに
DoEvents
を入れて下さい。

11247 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free