Çözüldü Resim olmadığında oluşan hatadan kurtulma

[çıtır]

Klasördeki resimleri sayfa alırken, aranan resim olmadığında
Run-time error '1004':
Pictures sınıfının Insert özelliği alınamıyor.
hata mesajı çıkıyor.Tüm denemelerime rağmen hatadan kurtulamadım.Aranan resim olmadığında hatadan nasıl kurtulabiliriz.
hata aşağıdaki satırda oluyor.

Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)

ResimYolu = ActiveWorkbook.Path & "\" & Cells(satır, sütun) & ".Jpg"
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)

 

[Zeki Gürsoy]

Merhaba.

if dir(resimyolu) <> "" then   
    Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)
end if

olarak deneyin.

 

[çıtır]

Merhaba.

if dir(resimyolu) <> "" then  
    Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)
end if

olarak deneyin.

Sayın Zeki Gürsoy
Sorun çözüldü.Çok teşekkür ederim.