Klasörden Resim Çağırma

Katılım
6 Nisan 2016
Mesajlar
111
Beğeniler
1
Excel Vers. ve Dili
office 2010
#1
aşağıdaki kodlamada kırmızı yazı olan yerde Sayfa1 - B9 hücresindeki rakamla klasör içerisinden resim çağırıyor fakat b10 hücresinini başka bir çalışma sayfasının Sayfa 2 - B10 hücresine aktarma yapamadım. yardımcı olursanız sevinirim. iyi günler.



Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [B9:B10]) Is Nothing Then Exit Sub
Dim p As Object, t As Double, l As Double, w As Double, h As Double

ActiveSheet.Pictures.Delete

ResimDosya = "C:\Resimler" & "\" & Target.Value & ".jpg"

If Dir(ResimDosya) = "" Then Exit Sub
Set p = ActiveSheet.Pictures.Insert(ResimDosya)

With Target.Offset(0, 1)
t = .Top + 3
l = .Left + 3
w = .Width - 3
h = .Height - 3
End With

With p
.Top = t
.Left = l
.Width = w
.Height = h
End With

Set p = Nothing
End Sub
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
20,869
Beğeniler
192
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#2
Başka çalışma sayfasının kod bölümünede o kodları yapıştırınız.:cool:
 
Katılım
19 Temmuz 2016
Mesajlar
92
Beğeniler
0
Excel Vers. ve Dili
2013
#3
Merhabalar
Aşağıdaki kodlarla resimi çağırabiliyorum. Sorun şu 3.kolonda 5. satırda bulunan a ürünü görsele geliyor. 5. kolon 5. satırda bulunan b ürününü görmek istediğimde a ürününü görüyorum. Activecell de hangi ürün varsa onu görmem gereken bir kod lazım.

Kodlar aşağıdaki gibidir.


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
sayf = ActiveSheet.Name
sat = ActiveCell.Row

Sheets(sayf).Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\" & sayf & "\" & Cells(sat, 3).Value & ".jpg")
userform4.Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\" & sayf & "\" & Cells(sat, 3).Value & ".jpg")

userform4.Caption = Cells(sat, 3).Value
userform4.Label1.Caption = Cells(sat, 3).Value

End Sub



Teşekkürler.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
20,869
Beğeniler
192
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#4
Örnek dosya yüklerseniz,daha çabuk yanıt alabilirsiniz.:cool:
 

tugkan

Altın Üye
Katılım
6 Kasım 2004
Mesajlar
165
Beğeniler
44
Excel Vers. ve Dili
Excel 2016
Türkçe 64 BIT
#7
Merhaba,
Makroları çok bilmediğim için sizin dosya ile ilgili yardımcı olamayacağım ama aşağıdaki kodu kendinize uyarlayıp denerseniz belki faydası olur

Kod:
Private Sub MAKRO1()
ActiveSheet.DrawingObjects.Delete

Dim x

For i = 1 To 100


x = i * 1

Cells(x, "F").Select
resimadi = LoadPicture("")
resimadi = Cells(x, "B").Text & ".jpg"
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\RESİM\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 50
Selection.ShapeRange.Width = 110
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.IncrementLeft 0.49
Selection.ShapeRange.IncrementTop 0.31


Next

End Sub
Mantık şu B sütunundaki hücrelerde ismi yazan resim dosyalarını " C:\RESİM\" klasöründen alıp F sütunundaki hücrelere getiriyor.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
20,869
Beğeniler
192
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#8
Dosyanız ektedir.:cool:

DOSYAYI INDIR

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sonsat As Long
sonsat = Cells(Rows.Count, "C").End(xlUp).Row
If Intersect(Target, Range("C9:C" & sonsat & ",F9:F" & sonsat)) Is Nothing Then Exit Sub
Image1.Left = Target.Offset(0, 1).Left
Image1.Top = Target.Offset(0, 1).Top
Image1.Width = Target.Offset(0, 1).Width
Image1.Height = Target.Offset(0, 1).Height

End Sub
 
Katılım
19 Temmuz 2016
Mesajlar
92
Beğeniler
0
Excel Vers. ve Dili
2013
#9
Evren hocam

Emeğiniz için teşekkürler. Yanlız userform ile ilgili atladığım bir konu olabilir.

CTRL + SHİFT + A yaptığınızda user form çıkıyor ve siz a ürününün üzerindeyseniz a ürününü b ürününün üstündeyseniz b ürününü gösteriyor.

Benim yüklediğim dosyada c9 hücresinde 1 numaralı ürün var . Kod çalıştığı zaman 1 numaralı ürünü göstermesi gerekiyor. Aynı 1 numaralı ürün f7 hücresinde de var . F7 hücresini sectiğimde yine 1 numaralı ürünü göstermesi gerekiyor.


Eksik yada yanlış anlatmış olabilirim. Kusurabakmayın.

Teşekkürler.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
20,869
Beğeniler
192
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#10
Evren hocam

Emeğiniz için teşekkürler. Yanlız userform ile ilgili atladığım bir konu olabilir.

CTRL + SHİFT + A yaptığınızda user form çıkıyor ve siz a ürününün üzerindeyseniz a ürününü b ürününün üstündeyseniz b ürününü gösteriyor.

Benim yüklediğim dosyada c9 hücresinde 1 numaralı ürün var . Kod çalıştığı zaman 1 numaralı ürünü göstermesi gerekiyor. Aynı 1 numaralı ürün f7 hücresinde de var . F7 hücresini sectiğimde yine 1 numaralı ürünü göstermesi gerekiyor.


Eksik yada yanlış anlatmış olabilirim. Kusurabakmayın.

Teşekkürler.
Siz aktif hücrenin yanındaki hücrede göstersin demiştiniz.Bende öyle yatım.Userform için bir kod yazmadım.
 
Katılım
10 Ocak 2019
Mesajlar
2
Beğeniler
0
Excel Vers. ve Dili
excel 2017 türkçe
#14
Merhabalar, benim excel'de klasörden resim çağırma ile ilgili sıkıntım var. tekstilde çalışıyorum excelde ürünün adı açıklaması bedeninin baş sütununa o ürünün resimini getirmek istiyorum barkodla. ürün fotograflarının isminde barkodları yazıyor. Nasıl yapabilirim yardımcı olabilirseniz çok sevinirim :)
 

HsNKgL

Altın Üye
Katılım
25 Ekim 2018
Mesajlar
31
Beğeniler
3
Excel Vers. ve Dili
Ms Office 2010 Türkçe - Ms Office 2013 Türkçe
#15
Merhabalar, benim excel'de klasörden resim çağırma ile ilgili sıkıntım var. tekstilde çalışıyorum excelde ürünün adı açıklaması bedeninin baş sütununa o ürünün resimini getirmek istiyorum barkodla. ürün fotograflarının isminde barkodları yazıyor. Nasıl yapabilirim yardımcı olabilirseniz çok sevinirim :)
Tek sayfadamı yoksa ayrı ayrı excel dosyalarında mı çalışıyorsunuz. Tekstil ürün için nasıl bir form hazırlıyorsunuz onu görmek lazım imalat yapıyorsanız örnek veriyorum kumaş, aksesuar, kesimi, fasonu, ütü-kaket vb gibi bilgilerini içeren bir bir çalışmamı bir örnek göndermeniz daha sağlıklı olur.
 
Katılım
10 Ocak 2019
Mesajlar
2
Beğeniler
0
Excel Vers. ve Dili
excel 2017 türkçe
#16
tek sayfada çalışıyorum.Elimde örnek var ama nasıl atacağımı bilemedim :( fotografı var ama buraya ekleyemiyorum
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
20,869
Beğeniler
192
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#18
Hocam iyi akşamlar;

Ek' teki dosyada rakam değeri değişince ya da silinince macro hata penceresi geliyor. Peki rakam değişikliği ya da silindiğinde hata vermeyip boş gelse ya da "Aradığınız resim yok" ibaresi gelse olabilir mi?
Ekte dosya yok
 
Üst