Onay Kutusu İşaretlenince Klasörden Resim Çağırmak

ercan_bora · 17-04-2018, 12:14

Selamlar,

Aslında bu yazı
http://www.excel.web.tr/f48/klasorde...k-t172082.html
burada mevcut fakat tek resim üzerine ve projeye uyarlamayamadığm için böyle yayınlıyorum.

Resim/Picture yanındaki onay kutusuna basınca ürün koduna göre klasör içindeki resimler ilgili (turuncu renkli) yerlere gelecek.

Umarım böyle bişey mümkündür.

Çalışma dosyası burada.
http://s7.dosya.tc/server5/g10pa7/In...lisma.rar.html

Premium hesabım yok o yüzden buradan yüklüyorum.

Yardımlarınız için çok teşekkür ederim.

Saygılar

muygun · 17-04-2018, 13:04

Merhaba;
Excel dosyası UrunResim klasörünün yanında olsun (içinde değil)
İnceleyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server15/po0s5z/e...getir.zip.html

**Orion1** · 17-04-2018, 13:18

Dosyanız ektedir.

Dosya Linki:
DOSYAYI İNDİR

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Sub resimgetir59()
Dim resim, i As Long, sonsat As Long, resimad As String
For Each resim In ActiveSheet.Shapes
    If Left(resim.Name, 3) = "Pic" Then resim.Delete
Next
sonsat = WorksheetFunction.Count(Range("B7:B" & Rows.Count))
If sonsat < 1 Then Exit Sub
sonsat = sonsat + 6
For i = 7 To sonsat
    resimad = Cells(i, "D").Value & ".jpg"
    Set resim = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\UrunResim\" & resimad)
    resim.ShapeRange.LockAspectRatio = msoFalse
    resim.Left = Range("C" & i).Left
    resim.Top = Range("C" & i).Top
    resim.Height = Range("C" & i).Height
    resim.Width = Range("C" & i).Width
Next i
End Sub

ercan_bora · 17-04-2018, 14:25

Hocam teşekkür ederim fakat onayı kaldırdıktan sonra resimler geri gelmiyor...

Alıntı:

Orion1 tarafından gönderildi

Dosyanız ektedir.

Dosya Linki:
DOSYAYI İNDİR

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Sub resimgetir59()
Dim resim, i As Long, sonsat As Long, resimad As String
ActiveSheet.Pictures.Delete
sonsat = WorksheetFunction.Count(Range("B7:B" & Rows.Count))
If sonsat < 1 Then Exit Sub
sonsat = sonsat + 6
For i = 7 To sonsat
    resimad = Cells(i, "D").Value & ".jpg"
    Set resim = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\UrunResim\" & resimad)
    resim.ShapeRange.LockAspectRatio = msoFalse
    resim.Left = Range("C" & i).Left
    resim.Top = Range("C" & i).Top
    resim.Height = Range("C" & i).Height
    resim.Width = Range("C" & i).Width
Next i
MsgBox "resimler çekildi." & vbLf & "evrengizlen@hotmail.com"
End Sub

ercan_bora · 17-04-2018, 14:25

Teşekkür ederim

Alıntı:

muygun tarafından gönderildi

Merhaba;
Excel dosyası UrunResim klasörünün yanında olsun (içinde değil)
İnceleyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server15/po0s5z/e...getir.zip.html

**Orion1** · 17-04-2018, 14:27

Alıntı:

ercan_bora tarafından gönderildi

Hocam teşekkür ederim fakat onayı kaldırdıktan sonra resimler geri gelmiyor...

Onay kaldırıldıktan sonra resimler elbette gelmeyecek.Onay işaretli ise gelecek.

**Orion1** · 17-04-2018, 14:45

Alıntı:

ercan_bora tarafından gönderildi

Hocam teşekkür ederim fakat onayı kaldırdıktan sonra resimler geri gelmiyor...

3 nolu mesajdan dosyayı indirip tekrar deneyiniz.
Bir yerinde değişiklik yaptım.

17-04-2018, 12:14	#1
ercan_bora Giriş: 23/06/2008 Şehir: İstanbul Mesaj: 75 Excel Vers. ve Dili: Excel 2010 Türkçe	Onay Kutusu İşaretlenince Klasörden Resim Çağırmak Selamlar, Aslında bu yazı http://www.excel.web.tr/f48/klasorde...k-t172082.html burada mevcut fakat tek resim üzerine ve projeye uyarlamayamadığm için böyle yayınlıyorum. Resim/Picture yanındaki onay kutusuna basınca ürün koduna göre klasör içindeki resimler ilgili (turuncu renkli) yerlere gelecek. Umarım böyle bişey mümkündür. Çalışma dosyası burada. http://s7.dosya.tc/server5/g10pa7/In...lisma.rar.html Premium hesabım yok o yüzden buradan yüklüyorum. Yardımlarınız için çok teşekkür ederim. Saygılar

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç