Resim Yolunu Hücreye Yazdırma

[serdarbarak]

Ekli programda (Alıntı )Makro ile Comboboxda ki kişiye ait resmi görüntüledikten sonra ilgili kaydın karşısına (b sütunu) resim yolunu yazdırmayı beceremedim. Lütfen yardım edin. Alıntı yaptığım programda çalışıyor ama ben beceremedim

 

[serdarbarak]

Arkadaşlar program ekte

Kusura bakmayın programı eklemeyi unutmuşum

 

[hamitcan]

Kodlarınızı aşağıdakilerle değiştirin.

Private Sub ComboBox1_Change()
    Dosya = ComboBox1.List(ComboBox1.ListIndex)
    Yol = "C:\" & Dosya & ".jpg" 'Buradaki yolu siz yazacaksınız
    Cells(ComboBox1.ListIndex + 3, "b") = Yol
    Image1.Picture = LoadPicture(Yol)
End Sub

Private Sub CommandButton1_Click()
    On Error Resume Next
    Set s1 = Sheets("Sayfa1")
    Dosya = Application.GetOpenFilename("Resim Dosyası(*.bmp;*.gif;*.tif;*.jpg;*.jpeg),*bmp;*gif;*.tif;*.jpg;*.jpeg", , "Ürün Resmini Seçiniz")
    If Dosya = False Then Exit Sub
    s1.Cells(CInt(ComboBox1) + 1, "b") = Dosya
    Image1.Picture = LoadPicture(Dosya)
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Sayfa1!A3:A10"
    ComboBox1.ListIndex = 0
End Sub