[ferget]

2010-й Excel после пересохранения дал объем в 800Кб - типа что-то оптимизировал. »

не оптимизировал, а сжал, xlsx - это zip архив

если архив открыть, то внутри есть файл drawing1 весом 75 MB

[okshef]

ShaddyR, забирай чистый

[ShaddyR]

Это гуд, конечно. А можно методику\алгоритм очищения озвучить - ну, там, святой водой на кого-нить побрызгать, файл крестным знамением отшлёпать или еще чего? А то у меня, как я говорил, много таких файлов могет быть)

[okshef]

если архив открыть, то внутри есть файл drawing1 весом 75 MB »

открываем, сохраняем как файл Excel 2010 (расширение *.xlsx), открываем любым архиватором, удаляем из архива папку drawing1, сохраняем изменения в архиве.
Открываем файл, игнорируем ругань Excel-я, соглашаемся с его попыткой восстановить файл. После открытия файла сохраняем его "как" в формате Excel 2003. Наслаждаемся при следующем открытии.

[ShaddyR]

офигеть... а это из какого mskb ?
На досуге проверю рецепт)

[okshef]

Общие сведения о новых расширениях имен файлов и XML-форматах Office - Excel - Office.com

Сжатие файлов Файлы сжимаются автоматически, и в некоторых случаях их размер может сокращаться на 75 процентов. В XML-форматах Office для хранения документов используется стандарт сжатия ZIP

[ShaddyR]

okshef, я не против. Мне просто интересно стало происхождение графического объекта в файле, где ему быть не полагалось. Причем в разных файлах и с определенного времени. А средствами собсно офиса 2003 подобное решается?

[okshef]

ShaddyR, я когда первоисточник исследовал, никак не мог найти даже намека на графический объект. Но сейчас, детально поколупавшись, нашел на листе с таблицей более 52000 (!!!) текстовых полей.
Лови макрос для удаления всех графических объектов книги

Код:

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

Причина - испорченный шаблон

p.s. Не пугайся - работать будет долго. На моем i7 около 5 минут

[ShaddyR]

работать будет долго. На моем i7 около 5 минут »

Долго - это не то слово. Второй вариант проще и эффективней по затратам времени:

открываем, сохраняем как файл Excel 2010 (расширение *.xlsx), открываем любым архиватором, удаляем из архива папку drawing1, сохраняем изменения в архиве. Открываем файл, игнорируем ругань Excel-я, соглашаемся с его попыткой восстановить файл. После открытия файла сохраняем его "как" в формате Excel 2003. Наслаждаемся при следующем открытии. »