Klasördeki fotoları userforma çekme (yolu kaydederek) ?

[Gorarr]

Selamlar, siz üstadlarımın yardımıyla yaptığım bu form ile belli bilgileri excel üstüne kaydediyorum ve listboxdan istediğimi tıklayınca ilk sayfada görüyorum.

Ben buna birde image nesnesi ekleyerek resimli bilgilerde kadedebilmek istiyorum. tıpkı ajanda gibi. bu resimler klasörde sabit olacak excel içerisine kopyalanmasına gerek yok.

Yardımcı olabilirseniz çok sevinirim..

 

[bedersu]

Sayın Gorarr,

Şu kodları dener misiniz?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Yeni_mi = False
    Bulunan_Satir_No = ListBox1.ListIndex + 2
    TextBox1.Text = Sheets("Data").Range("B" & Bulunan_Satir_No).Value
    ComboBox2.Text = Sheets("Data").Range("C" & Bulunan_Satir_No).Value
    TextBox3.Text = Sheets("Data").Range("E" & Bulunan_Satir_No).Value
    ComboBox3.Text = Sheets("Data").Range("D" & Bulunan_Satir_No).Value
    Image1.Picture = LoadPicture("C:\" & Sheets("Data").Range("E" & Bulunan_Satir_No).Value & ".jpg")
    MultiPage1.Value = 0 'YENİ BİLGİ (Multipage sayfa seçme = 1 yapınca 2 sayfaya geçiyor
End Sub

Resmin ismini Data sayfasında E sütunundaki veriyle aynı yapın.

 

[Gorarr]

Hocam çok teşekkür ederim. Tam istediğim gibi oldu.