Seçilen Dosyadan Combobox ile Userforma Resim Ekleme

[AyYıldızım]

Arkadaşlar ekteki dosyamda combobox 1 den resim dosyasının içerisindeki resimlerden seçim yaparak userforma resim eklemek istiyorum yardımcı olursanız sevinirim, saygılar.

 

[halit3]

Arkadaşlar ekteki dosyamda combobox 1 den resim dosyasının içerisindeki resimlerden seçim yaparak userforma resim eklemek istiyorum yardımcı olursanız sevinirim, saygılar.

kod:

Private Sub ComboBox1_Click()
Kaynak = ThisWorkbook.Path & "\Resim Dosyası"
resimyükle = Kaynak & "\" & ComboBox1.List(ComboBox1.ListIndex, 0)
If CreateObject("Scripting.FileSystemObject").FileExists(resimyükle) = True Then
Image1.Picture = LoadPicture(resimyükle)
End If

End Sub


Private Sub UserForm_Initialize()
Kaynak = ThisWorkbook.Path & "\Resim Dosyası"
Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(Kaynak).Files
uzanti = fL.GetExtensionName(Dosya)
If uzanti = "gif" Or uzanti = "jpg" Or uzanti = "bmp" Then
ComboBox1.AddItem Dosya.Name
End If
Next
End Sub

 

[AyYıldızım]

Halit Bey, çok teşekkürler, emeğinize sağlık.

 

[AyYıldızım]

Halit Bey, bişey daha soracağım eğer ilgilenebilirseniz, şimdi ben combobox1 deki resim adını sayfada bir hücreye kaydet butonu ile kaydetmek istiyorum yalnız kaydetme işlemini yapıyor ama sonunda runtime error 381 hatasını vererek
resimyükle = Kaynak & "\" & ComboBox5.List(ComboBox5.ListIndex, 0)
satırını gösteriyor. bu hatayı nasıl giderebiliriz. saygılar.

 

[halit3]

Halit Bey, bişey daha soracağım eğer ilgilenebilirseniz, şimdi ben combobox1 deki resim adını sayfada bir hücreye kaydet butonu ile kaydetmek istiyorum yalnız kaydetme işlemini yapıyor ama sonunda runtime error 381 hatasını vererek
resimyükle = Kaynak & "\" & ComboBox5.List(ComboBox5.ListIndex, 0)
satırını gösteriyor. bu hatayı nasıl giderebiliriz. saygılar.

kod:

Private Sub ComboBox1_Click()
Kaynak = ThisWorkbook.Path & "\Resim Dosyası"
resimyükle = Kaynak & "\" & ComboBox1.List(ComboBox1.ListIndex, 0)
[COLOR="Red"]Range("A1").Value = resimyükle
Range("A2").Value = ComboBox1.List(ComboBox1.ListIndex, 0)[/COLOR]
End Sub

 

[AyYıldızım]

Halit Bey, bişey değişmedi aynı hata devam etmekte, kayıtta problem yok, kayıt sonrasında hata veriyor, saygılar.

 

[AyYıldızım]

Hocam sorun anladığım kadarıyla kaydetten sonra textbox ve comboboxların temizlenmesi şeklinde ayarlamıştım temizleme kodlarını kaldırınca sorun kalmadı, bu image dosyasının temizleme kodu nasıldır hocam, yardımcı olurmusunuz.

 

[Ömer]

Merhaba,

Private Sub ComboBox1_Click()

Yukarıdaki kod başlığından hemen sonra aşağıdaki satırı ilave edin.

Image1.Picture = LoadPicture("")

.

 

[AyYıldızım]

Ömer Bey ekledim yalnız,

resimyükle = Kaynak & "\" & ComboBox1.List(ComboBox1.ListIndex, 0) satırında hata veriyor

 

[Ömer]

Bende herhangi bir hata vermedi. Kodları ilave ettiğiniz dosyayı ekleyip hangi aşamada hata aldığınızı adım adım açıklarsanız deneyip yorum yapmam kolaylaşır.

 

[AyYıldızım]

Ömer Bey hatayı aldığım dosyayı ekledim,

combobox4 üzerinde(sütun17)

kayıt yapmak için sütun2 nin doldurulması gerekiyor, saygılar.

 

[Ömer]

Kayıt yapıp hata alıyorsunuz sanırım.

Kodlar çok karışık. Kayıt da sorun yoksa,

Private Sub ComboBox4_Change()

Satırından sonra aşağıdaki satırı ilave edin.

On Error Resume Next

.

 

[AyYıldızım]

Tamamdır Ömer Bey, çok teşekkürler, Allah Razı olsun.