Makro ile Resim Değiştirme

[xnanx]

Merhaba,
Kimlik Kartı hazırlayıp toplu çıktı almaya çalışıyorum, Veri sayfasında baskı yağacağım kişilerin bilgilerini liste halinde ekleyip, form sayfasından topluca verileri değiştirerek yaptığım şablonda değerleri çevirerek yazıcıya gönderebiliyorum burada hiç problemim yok,

Dögüde TC yazan yerde ise bir folder de tc numaraları ile hazırlanmış fotoğraflar var aşağıdaki kodları kullanarak tc ye göre image manuel yazdığım zaman değiştirebiliyorum,
fakat çıktı döngüsü içinde fotoğraf değişmiyor sebebi ne olabilir,

Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [G9]) 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 = "D:\PersonelKart" & "\" & Target.Value & ".jpg"

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

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

With p
.Top = 60
.Left = 70
.Width = 250
.Height = 59
End With

Set p = Nothing
End Sub

 

[xnanx]

Tekrar Merhaba,
Burada elle bir tc yazarsam ilgili klasörde o TC isimli jpg dosyası varsa resmi getiriyor,
Ama kod çalıştırıp satırları veri safyasından alırsam ilk gelen resim ile devam ediyor.

 

[xnanx]

Çözüm yolu var mıdır acaba?

 

[AdemCan]

Merhaba, Ad tanımlamalarına göre N3 hücresine girdiğiniz değere göre G3 - G9 arasındaki veriler değişiyor.

Bu şekilde kullanım için
If Intersect(Target, [G9]) Is Nothing Then Exit Sub
satırındaki G9 u N3 olarak,

ResimDosya = "D:\PersonelKart" & "\" & Target.Value & ".jpg"
satırındaki Target.Value yi de [G9].Value olarak değiştiriniz.

 

[xnanx]

Merhaba, Ad tanımlamalarına göre N3 hücresine girdiğiniz değere göre G3 - G9 arasındaki veriler değişiyor.

Bu şekilde kullanım için
If Intersect(Target, [G9]) Is Nothing Then Exit Sub
satırındaki G9 u N3 olarak,

ResimDosya = "D:\PersonelKart" & "\" & Target.Value & ".jpg"
satırındaki Target.Value yi de [G9].Value olarak değiştiriniz.

Çok teşekkür ederim.
İstediğim şekilde oldu.

 

[AdemCan]

Rica ederim.