Excel тормозит

Обратился к нам клиент с вопросом: тормозит Excel, причем именно на одном конкретном листе. Все остальные листы в той же книге работают нормально. Анализ (и Google) дал прекрасную ссылку — правда к тому времени мы уже догадались грохнуть огромный файл drawings внутри архива xlsx, но макрос не менее ценен! Суть проблемы в огромном количестве пустых объектов типа Shape. Нужно их удалить и будет всем счастье!

Sub DeleteAllTextBox()
Dim oSh As Shape
For Each oSh In ActiveSheet.Shapes
oSh.Delete
Next oSh
End Sub

Excel тормозит: 2 комментария

  1. лучше так )

    Sub DeleteAllTextBox()
    Dim oSh As Shape
    For Each aSh In Worksheets
    For Each oSh In aSh.Shapes
    oSh.Delete
    Next oSh
    Next aSh
    End Sub

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

Ваш e-mail не будет опубликован. Обязательные поля помечены *