ホーム > VBAこんなとき？ > Lesson2：　LoadPicture関数で画像を．．．

LoadPicture関数を使って画像を表示するプログラムを作った。
ワークシートにImageを配置。それをクリックすると画像が表示されるようにした。

クリックすると画像（C:\VBA\mugi.jpg）が表示された。

表示成功！　と思っていたが、後日、
その画像をここで使っていることを忘れて、他の場所に移動させてしまった。
そして、同じようにクリックすると、エラーメッセージが出てしまった。

バグの場所は

画像ファイル（mugi.jpg）が見つからないので、エラー。
このエラーをなくすには、
Dir関数を使って、指定したファイルまたはフォルダがあるかどうかを確認する。
Dir関数は、一致するファイル、フォルダが見つかったとき、その名前を返す関数。
もし、見つからなかったときは、文字列「""」を返します。
Dir関数とIf Then Elseを使ってエラーが出ないようにしました。


画像ファイルが見つかったとき、イメージを表示し、
見つからないときは、イメージなし。
エラーが出なくなりました。