Aynı Klasör içindeki Resmi Çagırmak

[DeliBalta58]

Herkese merhabalar.

Forumda excele resim çağırma ile ilgili birçok örnek buldum ancak derdime çare olmadı. Bulabildiğim örneklerde resimler excel sayfasına konulmuş veya C:\Resim gibi adres göstererek
klasörün D ye taşınması durumunda çalıştıramadığım örnekler.
Yapmak istediğim;

bazen flash bellekte, bazen C de bazende D de çalıştığım bir dosyam mevcut.
dosyamın içinde 2000 civarında resim var. Resmin isimleri C1...C500- D1.. D500- L1..L500 gibi isim verdigim resimler. Her gün 20-25 resim eklenerek Resim sayısı artıyor.

A1 hücresine, klasörümün içinde bulunan jpeg formatındaki resmin adını girince 250ye 420 ölçülerinde olan resmin gelmesi

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[DeliBalta58]

Teşekkürler. Tam aradığım şekilde. NOT. İş nedeni ile cevabı geciktirdim kusura bakmayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error GoTo Bulunamadı
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & [A1] & ".jpg")
Exit Sub
Bulunamadı:
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\ResimYok.jpg")
End Sub

 

[ZorBey_]

Kolay Gelsin İyi Çalışmlar.