При открытии файла Excel, обычно с большим количеством записей, Excel начинает тормозить, при чем он не грузит процессор, а просто тупо тормозит.
Одной из причин такого торможения является наличие в книге Excel большого количества графических объектов.
Данный макрос очищает все листы в книге от графических объектов:
Sub shapes_del() Dim shp As Shape For i = 1 To Worksheets.Count j = 0 For Each shp In Sheets(i).Shapes shp.Delete j = j + 1 Next shp MsgBox "На листе " & i & " удалено " & j & " графических объектов" Next MsgBox "Done !" End Sub
Для Office 2010:
Чтобы добавить макрос в книгу, необходимо включить панель разработчик
Далее в этой панели нужно записать новый макрос и вставить туда вышеуказанный код.