UserForm'a Resim ekleme

[teksen]

Arkadaşlar merhaba,

UserForm üzerinde her ürün kaydı için bir resim eklemek istiyorum.

'resim seç' butonuyla 'c/uruntakip' isimli klasör içindeki resimleri görüntüleyip ekleyebiliyorum.

Fakat kaydedemiyorum.

Daha doğrusu,eklenen resmi o ürün içine kaydedemedim

Bunun için hangi kodları kullanmamız gerekir acaba?

Şimdiden teşekkürler.

 

[teksen]

arkadaşlar yardımcı olabilecek kimse varmı acaba?

 

[mrttrn]

Resim gösterme değil,Resim ekleme istenen hücreye

Range("G1").Select
Application.Dialogs(xlDialogInsertPicture).Show

yukarıdaki kodu kullanırsan resimi seçip ekle dediğin anda G1 hücresine resimi yapıştırır.Hangi hücreyi seçersen oraya yapıştırır.

 

[teksen]

Arkadaşlar bu konuda bir fikri olan varmı?

 

[teksen]

Yani resim gösterme işlemini yapamıyormuyuz?

 

[Ferhat Pazarçevirdi]

Merhabalar

Sn.Mahmut_Bayram'ın güzel ve basit bir çalışması var bunu incelediniz mi hiç?

Bkz : http://www.excel.web.tr/showthread.php?t=18612

 

[Levent Menteşoğlu]

Kasdettiğiniz resmi sayfayamı kaydetmektir yoksa resmin yolunumu? Eğer öyle ise sayfa üzerinde nereye kaydedilecektir. Her seçilen ürün için her seferinde kayıtmı yapılacaktır.

 

[mrttrn]

Sub Resim_Yükle(i As Integer) 'PROSEDÜR   resim yükleme
 On Error Resume Next 'Hata olduğunda yani resim yok ise.İşleme devam edilmesini sağlar.
   UserForm1.Image1.Picture = LoadPicture("") 'resim ekrandan(image1) kutusu boşaltılıyor.
   'ürün adı ile resim adı aynı ise resmi göster.
    a = Worksheets("Sayfa1").Range("A" & i).Value
   UserForm1.Image1.Picture = LoadPicture("C:\uruntakip\" & a & ".jpg")
End Sub

Commanbuuton2 de
Resim_Yükle(6) verilirse A6="Monitor"
ve c:\uruntakip\Monitor.jpg var ise ürün resmini gösteriri.

Ayrıca ;
Resim seçip, resimin ismini ürün ismi ile değiştirirseniz.Bundan sonra o ürün
seçildiğinde resim görünür.İstediğiniz bu mu bilmiyorum.

 

[teksen]

Evet arkadaşlar her ürün için ayrı bir resim kaydetmek istiyorum.

ürünü ListBox'tan seçip TextBox'larda görüntülediğimizde resmininde görünmesini istiyorum.

fakat mantık olarak beceremedim.

 

[hakikibirisi]

ürünü ListBox'tan seçip TextBox'larda görüntülediğimizde resmininde görünmesini istiyorum.

 

[baydeniro]

Sayın mrttrn, çok teşekkürler.