Фантомные поля

[Nik_Nik]

При работе с таблицами, иногда натыкаюсь в ячейках на пустые (неизвестно как созданные) небольшие поля для надписей в количестве до нескольких тысяч (наложены друг на друга)!
Они занимают место и тормозят работу.
Что это такое?
Как вообще можно отыскать на листе пустые поля, и удалить их одним махом?

[Юнлинг]

Сообщение от Nik_Nik

При работе с таблицами, иногда натыкаюсь в ячейках на пустые (неизвестно как созданные) небольшие поля для надписей в количестве до нескольких тысяч (наложены друг на друга)!
Они занимают место и тормозят работу.
Что это такое?
Как вообще можно отыскать на листе пустые поля, и удалить их одним махом?

Если я правильно тебя понял то тебе необходимо удалить много Shapes.
Можно воспользоваться следующим макросом

Sub makros1()
    Dim sh As Worksheet
    Set sh = Worksheets(1)
    sh.Shapes.SelectAll
    Set sr = Selection.ShapeRange
    sr.Delete

End Sub

[Aent]

Это возможно результат не совсем корректного формирования листа некой программой. Например, иногда подобные глюки встречались у ранних версий ABBY Fnereader. Удалить все шейпы с листа можно кодом

Dim s as Shape
On error resume next
For Each s in ActiveSheet.Shapes
     if Len(s.TextFrame.Characters.Text) = 0 
         s.Delete
     end if
Next s

[Nik_Nik]

Юнлинг и Aent - спасибо за участие в решении проблемы, но оба варианта выдают ошибки при запуске макроса.
Порывшись в Инете нашел такой макрос:

Sub makros1()
Dim iCount As Integer
Dim Shape As Object

iCount = ActiveSheet.Shapes.Count
If iCount > 0 Then
For Each Shape In ActiveSheet.Shapes 'ia?aeenouaaai ana aaoioeao?u
Shape.Delete
Next
End If
End Sub

Макрос сработал, в результате размер файла уменьшился с 6 Мбайт до 1 Мбайта!
Я в шоке!
Придется чистить все файлы от этих невидимых Shapes.
Как они могли возникнуть, может вирус какой их генерирует?

[Serge 007]

Можно без макроса.
F5 - объекты Delete

[Nik_Nik]

Serge 007 - спасибо!
Все гениальное - просто!