excel vbaの修正でアドバイスお願いします

質問

excel2000を利用しています。

下記のとあるプロシージャで自分で修正を試みるもどうしても出来ず投稿させていただきました。
どうか修正内容のアドバイスをお願いします。

■やろうとしていること
下記は写真を表示させる部分のコードです。下記 「worksheetchange」 イベントプロシージャで、レコードが変わると下記「myLoadPicture」が発生し、写真を表示させて、レコードを切り替えるたびに、その写真を切り替えるというものです。

■相談したいこと
いま指定したセルが空白だと、"NoImage.jpg"が表示されるようになっていますが、指定したフォルダに一致するファイルがなかった場合も、"NoImage.jpg"が表示されるようにしたいのですが、修正方法がわかりません。
どうかご教授お願いいたします。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fRange As Range
Dim touroku As Long
Select Case Target.Address
Case "$BC$1"
Call hyouji
Case "$BW$1"
myLoadPicture "board_Image", Target.Text, Range("BH3")
Case "$CY$1"
myLoadPicture "circuit_Image", Target.Text, Range("CJ3")
Case Else
Exit Sub
End Select
End Sub

Private Sub myLoadPicture(folderName As String, fname As String, targetRange As Range)
On Error Resume Next
Dim pict As Shape, picPath As String
picPath = ThisWorkbook.Path & "\" & folderName & "\" & fname
If fname = "" Then
picPath = ThisWorkbook.Path & "\" & folderName & "\" & "NoImage.jpg"
End If
With ActiveSheet
For Each pict In .Shapes
If pict.TopLeftCell.Address = targetRange.Address Then
pict.Delete
Exit For
End If
Next pict
Set pict = .Shapes.AddPicture(picPath, msoTrue, msoFalse, _
targetRange.Left, targetRange.Top, 260, 320)
End With
Exit Sub
End Sub

回答No.1

jcctaira · ベストアンサー

puyopaさん
こんにちは。

テストはしてませんが、次の方法で対応できるかと思います。

If fname = "" Then
　picPath = ThisWorkbook.Path & "\" & folderName & "\" & "NoImage.jpg"
　　　　　　　　　　　　↓
If (fname = "") Or (Dir(picPath)) = "" Then
　picPath = ThisWorkbook.Path & "\" & FolderName & "\" & "NoImage.jpg"

ご確認ください。

お礼

回答ありがとうございます。

見事に対応できました。