Tüm Sayfalarda Bulunan Belirli Nesneyi Silmek

[owenefe]

Merhaba arkadaşlar. Elimde ortalama 50 sayfalık bir excel var ve "Picture" adında resim her sayfada var. Ben makro ile bu resmi silebiliyorum ama bu işlemi sadece aktif excel sayfası için yapıyor. Bunu tüm çalışma kitabına nasıl uyarlayabilirim. "
Kullandığım kod şu şekilde

Sub Adi_Resim_ile_Baslayan_Sekilleri_Sil()
    Dim r As Shape
    For Each r In ActiveSheet.Shapes
        If r.Name Like "Picture" Then r.Delete
    Next r
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub Adi_Resim_ile_Baslayan_Sekilleri_Sil()
    Dim r As Shape,Syf As WorkSheet
    For Each Syf In ThisWorkbook.WorkSheets
    For Each r In Syf.Shapes
        If r.Name Like "Picture" Then r.Delete
    Next
    Next
End Sub

 

[owenefe]

Deneyiniz.

Sub Adi_Resim_ile_Baslayan_Sekilleri_Sil()
    Dim r As Shape,Syf As WorkSheet
    For Each Syf In ThisWorkbook.WorkSheets
    For Each r In Syf.Shapes
        If r.Name Like "Picture" Then r.Delete
    Next
    Next
End Sub

Korhan hocam çok sağolasın sayende hallletim teşekkürler