Izdzēst visus Shape Objects no Excel faila

Bieži vien gadās redzēt excel failus, kuros ir pilns ar shape objektiem. Manuāli šos objektus izdzēst nav iespējams - excelis nenormāli bremzē - Not responding.

Atveram "vainīgo" sheet un spiežam Alt+F11 un palaižam šo VBA:

Sub DeleteShapes()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
End Sub

Interesanti, ka pēc objektu izdzēšanas faila izmērs samazinās 10x.
Nākamoreiz varētu pamēģināt šo Kutools - zem Delete tools -> Delete Auto Shapes.