エクセルVBA イメージコントロールの画像切替について

Question

前提・実現したいこと

マクロでWindowsフォトビューアーのようにボタンを押すと画像が切り替わるものを作りたいと思っています。

手始めに画像をクリックしたら切り替えるマクロを作ったら、画像自体は切り替わるのですが、クリックしたタイミングではなく、イメージコントロールからマウスカーソルが外れたタイミングで画像が切り替わります。

クリックしたタイミングで切り替えるのはどうしたらいいでしょうか？
(デリートしたり、最前面にしたり、いろいろ試しましたができませんでした。)

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Public Pic
Private Sub Image1_Click()
Select Case Pic
Case Is = 0
Image1.Picture = LoadPicture("ファイルパス")
Pic = 1
Case Else
Image1.Picture = LoadPicture("ファイルパス")
Pic = 0
End Select
End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

画面更新をEnd Selectの後に追加で一応更新されるみたいです。

Application.ScreenUpdating = True

Comments

[Tiida7]

ご回答ありがとうございます。
いろいろなやり方があると思いますが、このやり方が一番しっくり来ました。

[crowmt]

無事に解決したようで何よりです。
こういう問題もあるんだとこちらも勉強になりました。

Answer 2

End Select の後に

Me.Repaint

でもできました

Repaint ... フォーム上のコントロール再描画用メソッド

Comments

[Tiida7]

回答ありがとうございます。
試してみましたが、メソッドまたはデータメンバーが見つかりません。
と出てきてうまくいきませんでした。

Answer 3

原因はわかりませんでした。
強制的にリフレッシュするメソッドなんかも用意されていないですし。
無理やり感はありますが、以下で切り替えることはできました。
End Selectのあとに追加してください。

Image1.Visible = False
DoEvents
Image1.Visible = True

Comments

[Tiida7]

ご回答ありがとうございます。
試してみて、クリックで切り替わる動作ができました。
少しちらつきが気になりますが、期待通りの動作ができてよかったです。