Makro İle Klasörden Resim Çekme

[kadir78]

Aşağıdaki makro kodları sorunsuz çalışıyor. Klasörden resim çekiyorum. Küçük bir ayrıntı var sormak istediğim. Kaynak klasördeki (C:\Resimler) resim dosyasını silince excel de resim bulunmadı hatası veriyor. Fakat manuel olarak makro kullanmadan resim ekle yaptığımda, kaynak resim dosyasını silsem bile excel hata vermiyor, resim gözüküyor. Makro koduyla yaptığımda resim gözükmüyor. Yardımcı olursanız sevinirim. İyi günler.

Sub RY()
Sheets("2.Sayfa").Activate
ActiveSheet.Range("A9").Select
Dim myPicture As String, myRange As Range, pn As String
pn = Range("B9")
myPicture = "C:\Resimler\" & pn & ".jpg"
Set myRange = Selection
InsertAndSizePic myRange, myPicture

End Sub


Sub InsertAndSizePic(Target As Range, PicPath As String)

Dim p As Picture
Application.ScreenUpdating = False
Set p = ActiveSheet.Pictures.Insert(PicPath)

If Target.Cells.Count = 1 Then Set Target = Target.MergeArea
With Target
p.Top = .Top
p.Left = .Left
p.Width = .Width

End With

Sheets("Bilgiler").Activate
ActiveSheet.Range("B1").Select

End Sub