Удалить автофигуры

Пользователь

Сообщений: 22 Регистрация: 01.01.1970

21.07.2011 07:17:47

Здравствуйте уважаемые форумчане.

Есть такая проблема. По электронной почте от сторонней организации приходит excel файл в котором по неизвестным причинам содержиться большое количество невидимых автофигур (возможно слова автофигура применяется неверно). Их наличие делает размер файла очень большим - 4-5 мегабайт. Внешне эти фигуры не видно, их можно увидитеь только если сделать по ним щелчок. Подскажите пожалуйста, как можно программно убрать эти фигуры и тем самым сделать приемлимым размер файла. Рисунок прилагается.

Прикрепленные файлы

post_243337.JPG (29.48 КБ)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 21.07.2011 07:25:40 Public Sub www(): ActiveSheet.DrawingObjects.Delete: End Sub Я сам - дурнее всякого примера! ...

Guest Гость	#3 21.07.2011 07:35:18 Спасибо конечно, но мой уровень пользователя не так высок, что я смог что то сделать с этим кодом. Можно чуть подробоней, что нужно сделать. Спасибо

гость Гость	#4 21.07.2011 07:39:38 Попробуйте так. F5, кнопка "Выделить", выбрать объекты, нажать ОК. Выделятся все графические объекты на листе. Нажать DELETE

Guest Гость	#5 21.07.2011 08:15:59 Спасибо всем. Понял как решать эту проблему. Но к сожалению ексель зависает и не удалаяет все эти объекты.

ZVI

Пользователь

Сообщений: 4605 Регистрация: 23.12.2012

21.07.2011 08:34:03

В феврале отвечал по аналогичной проблеме на одном из форумов:
1. Переименовать файл.XLSX в ZIP
2. Открыть ZIP файл в проводнике (или архиваторе), удалить внутри ZIP файла папку XL\DRAWINGS и сохранить архив
3. Переименовать ZIP файл обратно в XLSX
4. Открыть XLSX файл в Excel 2007, проигнорировать предупреждение об удалении автофигур и сохранить книгу. После этого книга тормозить не будет.

Guest Гость	#7 21.07.2011 09:32:43 Всем огромное спасибо. Проблема решена

МММ Гость	#8 20.09.2011 11:53:14 ZVI, огромное Вам спасибо! Вы помогли решить мега-проблему нашей организации)

W.P Гость	#9 25.04.2012 12:44:01 {quote}{login=гость}{date=21.07.2011 07:39}{thema=}{post}F5, кнопка "Выделить", выбрать объекты, нажать ОК.{/post}{/quote} Спасибо. Помогло!

Читают тему