Soru sayfaki resim üstündeki 2. resimleri silmek

#1
aşağıdaki kodlar sayfadaki tüm resimleri siliyor. benim sayfamda 1 resim üzerinde 2. resim var. ben ise sayfanın içersinde aşağı satırlarda var olan 2. resimleri silmek istiyorum. düzenlememe yapılır , yoksa yeni bir kod mu gerekir ?

Sub NESNE_SİL()
Dim Nesne As Shape For Each Nesne In ActiveSheet.Shapes If Nesne.Type <> 8 And Nesne.Type <> 12 Then
Nesne.Delete End If Next MsgBox "İşleminiz tamamlanmıştır.", vbInformation End Sub
 
Üst