Klasörden Resim Çağırma

[kadir78]

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]

Başka çalışma sayfasının kod bölümünede o kodları yapıştırınız.

 

[Ömer2134]

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]

Örnek dosya yüklerseniz,daha çabuk yanıt alabilirsiniz.

 

[Ömer2134]

Hocam merhaba

Daha öncede forumda bir eyrde bulmuştum bu dosyayı. Ben kendime göre düzenlemiştim.
Dosya linktedir.

http://s3.dosya.tc/server17/primqc/ornek.zip.html

Yardımınız için teşekkürler.

 

[Ömer2134]

Arkadaşlar konu ile ilgili yardımlarınızı rica ediyorum.

 

[tugkan]

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

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]

Dosyanız ektedir.

DOSYAYI INDIR

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

 

[Ömer2134]

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]

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.

 

[Orion1]

Dosyanız aşağıdaki linktedir.

DOSYAYI INDIR

.

 

[Ömer2134]

Evren Hocam

Teşekkür ederim. İstediğim buydu

Elinize sağlık.

 

[Orion1]

Evren Hocam

Teşekkür ederim. İstediğim buydu

Elinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[melikşah26]

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]

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.

 

[melikşah26]

tek sayfada çalışıyorum.Elimde örnek var ama nasıl atacağımı bilemedim fotografı var ama buraya ekleyemiyorum

 

[hamza2011]

Dosyanız aşağıdaki linktedir.

DOSYAYI INDIR

.

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?

 

[Orion1]

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

 

[Yusufcolaq]

İyi günler bende excelde b sütunundan tc sinden resim çektirmem gerekiyor f 3İle 5sütunları arasına. Bunun gibi 10 resim çektirmem gerekiyor mesela b1 den f3 ile 5, b2 den f 6 ile 8 arasına yardıncı olurmusnuzu direk yazabilirseniz kod olarak