Лог Пафа – Excel висит (тормозит) при работе с файлом


Excel висит (тормозит) при работе с файлом

При открытии файла 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:

Чтобы добавить макрос в книгу, необходимо включить панель разработчик

Далее в этой панели нужно записать новый макрос и вставить туда вышеуказанный код.

Источник:
http://forum.oszone.net/thread-226656.html

Добавить комментарий

Do NOT follow this link or you will be banned from the site!