Удалить все автофигуры на листе Excel

Очень быстро избавиться от автофигур можно с помощью макроса.

Следующий макрос VBA удаляет все виды фигур на активном листе, включая изображения, ClipArt, фигуры, SmartArt, диаграммы, текстовые поля и т. д.:

Sub DeleteShapes()

Dim Shp As Shape

For Each Shp In ActiveSheet.Shapes

Shp.Delete

Next Shp

End Sub