ID非公開

2021/12/2 9:17

33回答

Excel VBAです。

Excel | Visual Basic119閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

1

1人がナイス!しています

ThanksImg質問者からのお礼コメント

動きました!!!ありがとうございます!!! 実は他のマクロの実行中に「お待ちください」のテキストボックスと お辞儀をしている画像をフォームで表示したかったんです。 お三方には本当にありがとうございます。今回は一番早く実装できるものを教えていただいたかたをベストアンサーとさせていただきます。

お礼日時:2021/12/3 8:11

その他の回答(2件)

1

Application.Ontimeを使うとすっきりできるとおもいますよ。 UserForm1というフォームに Image1というイメージを配置して Sampleマクロを実行して下さい ---標準モジュール-------------------------------------- Option Explicit Dim Cnt As Long Sub Sample() Cnt = 0 UserForm1.Show 0 Application.OnTime Now + TimeValue("0:0:1"), "ReplaceImage" End Sub Private Sub ReplaceImage() Dim Image As Variant Dim Idx As Long ' ★ ↓は交互に表示する画像ファイルのパスに変更して下さい Image = Array("D:\_Temp\無題1219.jpg", "D:\_Temp\無題1229.jpg") Cnt = Cnt + 1 If Cnt >= 30 Then Unload UserForm1 Else Idx = Cnt Mod 2 UserForm1.Image1.Picture = LoadPicture(Image(Idx)) Application.OnTime Now + TimeValue("0:0:1"), "ReplaceImage" End If End Sub ---------------------------------------

1人がナイス!しています

0

ユーザーフォームに画像というのは初トライですけど、こんな感じでしょうか? Private Sub CommandButton1_Click() Dim StartTime StartTime = Time Do Application.Wait [Now() + "0:00:01"] Image1.Picture = LoadPicture("D:\Sample\dog.gif") Application.Wait [Now() + "0:00:01"] Image1.Picture = LoadPicture("D:\Sample\cat.jpg") Loop Until Second(Time - StartTime) >= 30 End Sub

ID非公開

質問者2021/12/2 10:27

早急なお返事ありがとうございます。 早速試したのですが、画像が切り替わりませんでした。 最初の画像のままです。スイマセン.....