Düşeyara ile klasörde bulunan resimleri getirme

[ercan_bora]

Selamlar,

Excel'de düşeyara ile menüden Resim1 ve Resim2 diye dosya seçilince excelin bulunduğu klasörden ilgili resimi getirmek istiyoruz.

Mümkün müdür? Dosya .rar lı olarak bu adreste.
http://s4.dosya.tc/server2/4puqyv/Desktop.rar.html

Yardımlarınız için şimdiden Allah razı olsun.

Saygılar,

 

[Orion1]

Dosyanız ektedir.
her 2 dosyada ayni klasör içinde olmalıdır.
DOSYAYI İNDİR59

Sub resimekle59()
    ActiveSheet.Pictures.Delete
    Range("A1").Select
    ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Range("J1").Value & ".jpg").Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.Height = Range("A1").Height * 17
    Selection.Width = Range("A1").Width * 7
    ActiveWorkbook.Save
    Range("J1").Select
End Sub

 

[ercan_bora]

Allah razı olsun kardeşim... kendi projemede uğraştım uyarladım.

iyi oldu...

 

[Orion1]

Allah razı olsun kardeşim... kendi projemede uğraştım uyarladım.

iyi oldu...

Rica ederim.
İyi çalışmalar.