Bir hücrede yazan değer ile aynı isme sahip resim dosyasını otomatik getirme

[smt41]

Merhabalar,

Teklif iletirken kullandığım referans kodlarına ilişkin ürün resmi koymak istiyorum. Tüm resimler .jpg formatında ve referans alınacak değer ile dosya ismi aynı. Bir hücredeki değere sahip olan resim dosyasını otomatik nasıl getirebiliriz mümkün müdür bu?

Linkte örnek dosyamı ve 2 adet örnek resmi ekledim. Dosya içerisindeki resimleri el ile eklemiştim, aynı şekilde bunu sistemin kendisini çekmesini istiyorum.

Şimdiden teşekkürler yardımlarınız için.

Örnek dosyalar:
https://we.tl/2slprlApG0

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server10/p1pu9a/smt41-resim_getir.zip.html

 

[Korhan Ayhan]

Bende hazırlamıştım. Paylaşmak istedim.

Harici Link (Silinebilir) ; Örnek

Option Explicit

Sub Resimleri_Sil()
    Dim Resim As Object
    
    For Each Resim In ActiveSheet.Shapes
        If TypeName(ActiveSheet.Shapes(Resim.Name).OLEFormat.Object) = "Picture" Then
            Resim.Delete
        End If
    Next
End Sub

Sub Tüm_Resimleri_Yenile()
    Dim Yol As String, Dosya As String, Resim As Object, X As Long, Son As Long
    Dim RTop As Double, RLeft As Double, RWeight As Double, RHeight As Double
 
    Resimleri_Sil
    
    Son = Cells(Rows.Count, 1).End(3).Row
        
    For X = 3 To Son
        Yol = ThisWorkbook.Path & "\"
        Dosya = Yol & Cells(X, "J").Value & ".jpg"
        If Dir(Dosya) <> "" Then
            Set Resim = ActiveSheet.Pictures.Insert(Dosya)
            
            Cells(X, "K").Select
            If Selection.Cells.Count = 1 Then
                RTop = Selection.Top + 0.5
                RLeft = Selection.Left + 0.5
                RWeight = Selection.Width - 1
                RHeight = Selection.Height - 1
                Resim.ShapeRange.LockAspectRatio = msoFalse
            Else
                RTop = Selection.Top + Selection.Height / 4
                RLeft = Selection.Left + 0.5
                RWeight = Selection.Width - 0.5
            End If
            
            With Resim
                .Top = RTop
                .Left = RLeft
                .Width = RWeight
                .Height = IIf(RHeight = 0, Resim.Height, RHeight)
            End With
            
            Set Resim = Nothing
        End If
    Next

    Range("A1").Select

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[smt41]

Bende hazırlamıştım. Paylaşmak istedim.

Harici Link (Silinebilir) ; Örnek

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server10/p1pu9a/smt41-resim_getir.zip.html

İkinizin de verdiği dosyaları denedim,tam işimi görecek şekilde çalışıyor şuan.
İçerik ve düzen olarak farklı bir formatta kullanmak istediğimde kaynk sütun değişirse ğer kod kısmından şuanki referans kodlarının yazdığı alanları değiştirmem yeterli olacak mıdır düzenlemek için?

 

[Korhan Ayhan]

Satır ve sütun bilgilerini dilediğiniz gibi değiştirebilirsiniz.

 

[smt41]

Satır ve sütun bilgilerini dilediğiniz gibi değiştirebilirsiniz.

Teşekkür ederim yardımlarınız için. Çok işime yarayacak.

 

[Asri]

Alternatif;

Aşağıdaki sayfanın ilk mesajındaki eklentiyi, excel mouse sağ tuş da kullanabilirsiniz.

resim isimlerinin yazılı olduğu hücrenin yanındaki hücreye resimleri ekler, birleştirilmiş hücre desteği vardır.
Aynı isimde resim bulmaz ise hiç bir işlem yapmaz. Kaç adet resim seçerseniz o kadarını ekler.

http://www.excel.web.tr/f52/excel-ze...tml#post882817

Videosu,
https://www.youtube.com/watch?v=0hl8yxIjIs0

 

[smt41]

Satır ve sütun bilgilerini dilediğiniz gibi değiştirebilirsiniz.

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server10/p1pu9a/smt41-resim_getir.zip.html

Merhabalar tekrardan, göndermiş olduğunuz dosyaları kullandım ikinize de çok teşekkür ediyorum fakat ben bunları müşteriye gönderdiğimde resimleri göremiyorlar çünkü resimler bağlantılı resim olarak geliyor.
Bu resimleri makroyu çalıştırınca direk dosya içerisine gömmek gibi bir şansımız yok mudur?

 

[muygun]

Merhabalar tekrardan, göndermiş olduğunuz dosyaları kullandım ikinize de çok teşekkür ediyorum fakat ben bunları müşteriye gönderdiğimde resimleri göremiyorlar çünkü resimler bağlantılı resim olarak geliyor.
Bu resimleri makroyu çalıştırınca direk dosya içerisine gömmek gibi bir şansımız yok mudur?

Yaptığım uygulamada resimler bağlantılı olarak değil resim olarak sayfaya ekleniyor.
Tabi müşteriniz Butona basarsa resimler silinir.
Göndermeden önce makro ve butonu silin.
İyi çalışmalar.

 

[smt41]

Yaptığım uygulamada resimler bağlantılı olarak değil resim olarak sayfaya ekleniyor.
Tabi müşteriniz Butona basarsa resimler silinir.
Göndermeden önce makro ve butonu silin.
İyi çalışmalar.

Dosyayı makrolu olarak hiç göndermedim. Kendimde ya da başkasında deneyince aynı resimler bilgisayarda mevcut olmayınca hata veriyor. Ben şimdi kaynak resimlerin olduğu klasörün adını değiştirip açtım kendimde yine gözükmüyor. Ekran görüntüsü altta;
https://i.hizliresim.com/dP9XGV.png

Bu dosyayı maille attığımda da aynı hatayı alıyor herkes. Tüm resimleri seçip kopyala özel yapıştır ile kısmen oluyor ama bu seferde de tüm resimleri birleştirip tek bir bütün haline getiriyor.

 

[muygun]

Merhaba;
Gönderdiğim ek Ofis 2003 versiyonunda sorunsuz çalışıyor.
(Ofis 2003 kurulu bir pc de deneyin.)
Şimdiki ek sayfayı yalın halde kaydediyor. (kaydettiğiniz yeni dosyada resimler varsa bu dosyayı gönderin)
Birde bunu deneyin.
İyi çalışmalar.

Link:
http://s5.dosya.tc/server4/kyp3va/smt41-resim_getir-1.zip.html