[Çözüldü] Belirtilen Hücrelerdeki Resimleri Silme

[muhittinemmi]

Kod: Tümünü seç

Sub Belirli_Bir_Alandaki_Resimleri_Sil()
    Dim Resim As Picture, Alan As Range
   
    Set Alan = Range("a1:a20")
   
    For Each Resim In ActiveSheet.Pictures
        If Not Intersect(Resim.TopLeftCell, Alan) Is Nothing Then
            Resim.Delete
        End If
    Next
   
    Set Alan = Nothing
  
End Sub

Bu kodu a3 ve b20 deki resimi silmek için yeni bir excel sayfasında problemsiz çalıştırıyorum.

Mevcut kodlarımın olduğu sayfada modüle ekleyip çalıştırma istediğimde Runtime error 13 Typmisnatc Hatası alıyorum.
Hata satırı For Each Resim In ActiveSheet.Pictures hata neden kaynaklı olabilir düzeltmek için ne yapabilirim

[muhittinemmi]

Kod aşağıdaki gibi düzenlendiğinde problemsiz çalışıyor.

Kod: Tümünü seç

Sub Belirli_Bir_Alandaki_Resimleri_Sil()
    Dim Resim As Shape, Alan As Range
 
    Set Alan = Range("a1:a20")
 
    For Each Resim In ActiveSheet.Shapes
        If Resim.Type = msoPicture Then
            If Not Intersect(Resim.TopLeftCell, Alan) Is Nothing Then
                Resim.Delete
            End If
        End If
    Next
 
    Set Alan = Nothing
 
End Sub