Resimleri toplu silerken birini hariç tutmak

[winstoncash]

Başlık çok anlaşılır değil, izah edeyim;

Ekli dosyanın PROFORMA sayfasında "Description of good" sütununda ürünü seçtikten sonra "resimgetir" makrosu ile ilgili ürünün resmini solundaki hücreye getiriyorum. 10-15 satırlık bir proformada resimleri getirdikten sonra değişiklik yapmak için bazen resimleri silmem gerekiyor ama hepsini seçip sil dediğimde boş satırları gizle/göster makrosu atadığım switch button da siliniyor. bunu (ctrl ile butona tıklayıp seçim dışı bırakmak dışında) engellemenin bir yolu var mı? yani makro atadığım şekil hariç diğer tüm resimleri silmenin bir kısayolu var mı onu öğrenmeye çalışıyorum.
makro atadığım şekli kilitli yapıp sayfayı koru dediğimde resim getir makrosu da çalışmıyor, dolayısıyla o çözüm de uymadı. başka nasıl yapılabilir?

 

[necati]

Sub ResimSil()
'Tip özelliği "Picture" olanların silinmesi
Dim s1 As Worksheet, resim As Shape, i As Integer

Set s1 = ActiveSheet
For Each resim In s1.Shapes
resim.Select
If TypeName(Selection) = "Picture" Then
    Selection.Delete
    i = i + 1
End If
Next
If i >= 1 Then
MsgBox i & " Adet resim silindi"
Else
MsgBox "Resim bulunamadı"
End If

End Sub

 

[winstoncash]

Sub ResimSil()
'Tip özelliği "Picture" olanların silinmesi
Dim s1 As Worksheet, resim As Shape, i As Integer

Set s1 = ActiveSheet
For Each resim In s1.Shapes
resim.Select
If TypeName(Selection) = "Picture" Then
    Selection.Delete
    i = i + 1
End If
Next
If i >= 1 Then
MsgBox i & " Adet resim silindi"
Else
MsgBox "Resim bulunamadı"
End If

End Sub

teşekkür ederim Necati hocam. Ama şöyle bir sorun var; kodu çalıştırdığımda önce hata penceresi çıkıyor, "end" dediğimde ise resmi siliyor. sebebi ne olabilir?

 

[necati]

Bir hata sebebi göremedim. Dosyanızın başka özellikleri buna sebep vermiş olmalı.
En başa
"On error resume next" yazıp deneyiniz.

 

[winstoncash]

Bir hata sebebi göremedim. Dosyanızın başka özellikleri buna sebep vermiş olmalı.
En başa
"On error resume next" yazıp deneyiniz.

Şimdi çok güzel oldu. Teşekkür ederim.