Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11267 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
を入れて下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11267 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free