Tüm Sayfalardaki Resimleri Sil

[baydeniro]

Merhaba Arkadaşlar,
Dosyadaki tüm sayfalardaki resimleri, şekilleri, düğmeleri silen bir kod olur mu !
aşağıdaki kod ile sayfadali silinebiliyor. Tek kodda tüm sayfalarda uygulamak mümkün mü !

Sub Resim_Sil()
With ActiveWorkbook
For Each myshape In ActiveSheet.Shapes
myshape.Delete
Next myshape
End With
End Sub

 

[EmrExcel16]

Deneyiniz.

Sub Resim_Sil()
    For Each Syf In ActiveWorkbook.Worksheets
        For Each Resim In Syf.Shapes
            Resim.Delete
        Next Resim
    Next Syf
End Sub

 

[baydeniro]

Deneyiniz.

Sub Resim_Sil()
    For Each Syf In ActiveWorkbook.Worksheets
        For Each Resim In Syf.Shapes
            Resim.Delete
        Next Resim
    Next Syf
End Sub

Üstad çok teşekkür ederim, harika bir kod. Zaman zaman ihtiyacımız oluyor. Sağlıcakla kalın.

 

[EmrExcel16]

Üstad çok teşekkür ederim, harika bir kod. Zaman zaman ihtiyacımız oluyor. Sağlıcakla kalın.

Rica ederim , iyi çalışmalar.