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
お礼
回答ありがとうございます。 見事に対応できました。