Listedeki isimlerin karşılarına klasörden fotoğraf çekme

@planyoq

-- Dosya boyutunun gereksiz şişmemesi için bence doğru yöntem,
fotoğrafları hücreye değil hücre açıklamasına eklemek daha doğru.
-- Aşağıdaki kodu kullanabilirsiniz (kod aktif sayfada işlem yapar)
-- Sayfa YAZDIRılacaksa; (açılamalarla, yani fotoğraflarla birlikte yazdırma)
aşağıdaki görselde belirttiğim seçimin yapılması gerekir.

@planyoq aşağıdaki linke eklediğim dosya size fayda sağlayabilir.

@planyoq

Önce bundan önceki cevabıma bakınız.

İlle de resimlerin hücreye eklenmesini istiyorsanız şu kodu kullanın.
Resimler hücre boyutlarına göre yeniden boyutlandırılarak hücreye sığdırılır (en x boy oranına göre tabii ki).

Ömer BARAN' Alıntı:

@planyoq

Önce bundan önceki cevabıma bakınız.

İlle de resimlerin hücreye eklenmesini istiyorsanız şu kodu kullanın.
Resimler hücre boyutlarına göre yeniden boyutlandırılarak hücreye sığdırılır (en x boy oranına göre tabii ki).

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(44 satır)

Genişletmek için tıklayın ...

Hocam bi göz atmanız mümkün mü yol kısmını düzenlemeye çalıştım ama ya kod da ya da ben düzenlerken bi hata yaptım çekemiyorum

Admin' Alıntı:

@planyoq aşağıdaki linke eklediğim dosya size fayda sağlayabilir.

https://www.exceldestek.com/kaynaklar/sayfa-uzerinde-resim-ornegi.15132/

Genişletmek için tıklayın ...

Hocam verdiğiniz link excel depoya yönlendiriyor göz atacaktım ama indiremedim

FOTO klasörüne sağ tıklayıp ÖZELLİKLER'ine baktığınızda gördüğünüz KONUM bilgisini kopyalayıp
ÇİFT TIRNAK arasına yapıştırın. Gerizi zaten benim verdiğim kod.

Hayır verdiğim linkte dosya var.
Size link vermeden önce oraya dosyayı yükledim, öyle verdim linki.
https://www.exceldestek.com/konu/excel-depo-dosyalarina-erisim-hakkinda.4734/ linki incelemenizi öneririm.

Dediğiniz gibi denedim ama bir yerde hata yapıyorum sanırım hocam mesaj geliyor ekrana iş tamamlandı diye fakat fotoğraf gelmiyor

Ömer BARAN' Alıntı:

FOTO klasörüne sağ tıklayıp ÖZELLİKLER'ine baktığınızda gördüğünüz KONUM bilisini kopyalayıp
ÇİFT TIRNAK arasına yapıştırın. Gerizi zaten benim verdiğim kod.

Genişletmek için tıklayın ...

Kodun içindeki şu kısmı atlıyor


With .Cells(sat, 4)
If .Offset(0, -1).Value <> "" Then
tc = "TC-" & .Offset(0, -1).Value
yol_isim_uzanti = yol & "\" & tc & ".jpg"
resim_varmi = dosya.FileExists(yol_isim_uzanti)
If resim_varmi = True Then

Cells(sat, 4).Activate
hg = Cells(sat, 4).Width
hy = Cells(sat, 4).Height
ActiveSheet.Pictures.Insert(yol_isim_uzanti).Select
With Selection
oran = WorksheetFunction.Min((hg - 2) / .Width, (hy - 2) / .Height)
.ShapeRange.ScaleWidth WorksheetFunction.RoundDown(oran, 4), msoFalse, msoScaleFromTopLeft
.Top = Cells(sat, 4).Top + (hy - .Height) / 2
.Left = Cells(sat, 4).Left + (hg - .Width) / 2
.Placement = xlMoveAndSize
End With
End If
End If
End With
Next

@Ömer BARAN Hocam kodun şu kısmı

son = .Cells(Rows.Count, 2).End(3).Row
For sat = 12 To son
With .Cells(sat, 4)
If .Offset(0, -1).Value <> "" Then
tc = " TC-" & .Offset(0, -1).Value
yol_isim_uzanti = yol & "\" & tc & ".jpg"

"klasörün yolu\Kişi 1 TC-12345678910.jpg"
Bunu çıkartıyor doğrumuyum acaba çünkü ismi bulamıyor tahminimce

@planyoq

Fotoğraf isimleri, KİŞİ ADI SOYADI TC-TCNO şeklindeyse;
şu satırı değiştirmeniz gerekiyor demektir.

yol_isim_uzanti = yol & "\" & .Offset(0, -2).Value & tc & ".jpg"

.

Ömer BARAN' Alıntı:

@planyoq

Fotoğraf isimleri, KİŞİ ADI SOYADI TC-TCNO şeklindeyse;
şu satırı değiştirmeniz gerekiyor demektir.

yol_isim_uzanti = yol & "\" & .Offset(0, -2).Value & tc & ".jpg"

.

Genişletmek için tıklayın ...

Oldu Hocam emeğinize sağlık teşekkür ederim

@Ömer BARAN Hocam küçük bir sorum daha olucak genel olarak bu işlem işimi gördü fakat bazı kişilerin resimlerini klasörden çekmedi bilgilerini ve resimin uzantısını falan kontrol ettim fakat nedenini bulamadım aklınıza gelen başka bir şey olabilir mi nedenine dair %90 oldu ama bunun gibi %10 luk bir kısım neden ise gelmedi

@planyoq
Sorun yaşanan satırlarda örneğin E sütununa =$B8&"TC-"&$C8 formülünü (satır numarasını kontrol edin tabi) uygulayın,
sorun yaşanan satırlardaki kişiye ait fotoğrafların isimleriyle karşılaştırın.

.