2 jpg dosyası olan bir sayfaya yeni gelen farklı 2 jpg dosyasının silinmesi

[Tevfik_Kursun]

Merhaba Arkadaşlar,
2 jpg dosyası olan bir sayfaya yeni 2 jpg dosyası daha çağrılıyor. Tag içinde olan Resimleri_Sil makrosu silmeye ilk gelen jpg dosyalardan başlıyor. Onlar silinmeyecek. Son gelen iki dosyayı nasıl silebilirim.
Elimdeki makro

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

Not: Gelen son iki jpg dosyanın adı BT1 de yazılı (belki lazım olur)
http://s5.dosya.tc/server3/qlw261/Deneme.rar.html
Saygılarımla

 

[Ömer BARAN]

Merhaba.

Umarım istediğiniz gibi olmuştur.
(Kontrolü, dosyayı zipten çıkartarak yapınız).
.

 

[Tevfik_Kursun]

Sayın Ömer Baran Hocam,
İlginize çok teşekkür ederim. Bu haliyle tek başına çok güzel çalışıyor. Makroları gereken yere koyduğumda resimlerde gördüğünüz hatalar geliyor. Korumadan dolayı sanıyorum. Makro girişlerinde hatta isim değişen noktada da şifreyi kaldırdığım halde aynı hata tekrarlanıyor.
Sebep ne olabilir acaba?
Saygılarımla