Excel' e Resim getirme

[power468]

Saygı değer hocalarım. ben UserForm Üzerinden bir Şehit ve Gazi bilgileri için bir kendimce program yaptım. Aşağıda verdiğim kodu kullanarak excel sutununa direk yazarak resime verdiğim rakamları giriyorum. Resimler girdiğim rakama göre değişiyor sıkıntı olmuyor. ancak Userform üzerinden örnek (TextBox) le aynı excel sutununa rakam girdiğimde bilgiler değişiyor ancak resim değişmiyor yardımcı olursanız sevinirim.
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [c2]) Is Nothing Then Exit Sub

' hata kontrolü
On Error GoTo çıkış
' Resimleri Sil

ActiveSheet.DrawingObjects.Delete
'Resim yolunun bulunması

Dim Resimyolu As Variant
Dim Resim As Object

Resimyolu = ActiveWorkbook.Path & "\" & Range("c2") & ".jpg"

'Resim oluştur
Set Resim = ActiveSheet.Pictures.Insert(Resimyolu)

'Resmi Boyutlandır

With Range("D1")
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width

End With

çıkış:
End Sub

 

[Muzaffer Ali]

Merhaba.
UserFormda bulunan bilgileri değiştiren kodu da ekleyiniz.