Resim eklemek Hk Yardım Lütfen

[mustafakoker]

Arkadaşlar biliyorum bu konu hk birçok kez konu açılmış
fakat istediğimi bulamadım benim gönderdiğim ekli klasör içindeki resimleri sırasıyla a1 hücresine nasıl eklerim
resim ekle diye bir tuş oluşturdum ona da sadece 2.resmi çektirebiliyorum bu klasörde 500 üstünde resim olacak istediğim resmi nasıl eklerim veya kodlamam da hata nerede

Sub Resim_ekle()
adres = ThisWorkbook.Path()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0#, 2.75, 100#, 80.25).Select
Selection.Name = "resim"
Selection.ShapeRange.Fill.UserPicture adres & "\2.JPG"
Range("A1").Select
End Sub
Sub resim_sil()
    ActiveSheet.Shapes("resim").Select
    Selection.Delete
    Range("A1").Select
End Sub

2,jpg resim adı *.Jpg yazdım oda olmadı burada istediğim resimleri nasıl sayfama çektirebilirm.

 

[halit3]

hangi resimi seçeceğine dair bir hücrede değişken resimin adı olması gerekiyor

 

[ozgretmen]

K2 hücresine resim numarasını girip ekleyebilirisiniz...

 

[halit3]

ekli dosyaya bir bak

 

[halit3]

koy makroyu aşağıdekiyle değiştir

Sub koy()
On Error Resume Next
ComboBox1.Clear
ComboBox1.AddItem ""
adres = ThisWorkbook.Path() & "\"
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(adres).Files
ComboBox1.AddItem Dosya.Name
Next
End Sub

 

[mustafakoker]

Hocam ikinize de ayrı ayrı teşekkürlerimi sunarım

 

[halit3]

iyi günler

 

[ozgretmen]

Benden de iyi günler...