Alt + F11 basıp vba arayüzünde Insert ekranından Module kısmını açıyoruz
aşağıdaki kodu açılan ekrana yazıyoruz.
Sub TumNesneleriSil()
Dim ws As Worksheet
Dim shp As Shape
For Each ws In ThisWorkbook.Worksheets
For Each shp In ws.Shapes
shp.Delete
Next shp
Next ws
MsgBox "Tüm nesneler silindi." End Sub
yazdıktan sonra aynı ekran üzerinde F5 e basıp silme işlemi yapabilirsin veya aşağıda işaretlediğim RunSub kısmına basarakta görevi çalıştırabilirsin
