Проблема с размером :) - Microsoft Office Excel

Exel_Wild · 11.04.2008, 12:00

Доброго времени суток форумчане! Пишет вам грустный админ молодой

)(ну скорее не грустный а опечаленый)
Задал шеф злой задачку дивную:
Есть файл *.xls 2003 Excel, по мере редактирования стал весить почти мегабайт, и продолжает расти, на вирусы проверял, все чисто, подозреваю что есть какая-то скрытая подложка или картинка(при открытии блокнотом просматривается адресс на нее)
В этой программе не силен(ибо админ), подсказали (внимание смешно) "есть какая-то секретная комбинация клавишь при которых мтановится видно скрытые объекты и их можно редактировать" об этом мне сообщила секретарша, которая и родила этот меговый файл

Товарищи программеры, подскажите плиз эту заветную

"комбинацию клавиш" или еще какой добротный метод уменьшения размера файла до нормального с сохранением данных...

З.ы. Заранее большое спасибо. Модеры, есди оффтоп не удаляйте сразу плиз

внизу привожу пустышку весом в пол метра...

дмидми · 11.04.2008, 12:35

Если выполнить (а надо?)

Код:

Sub KillAllShapesOnActiveSheet()
    Dim ws As Worksheet, sh As Shape
    For Each sh In ActiveSheet.Shapes
        sh.Delete
    Next
End Sub

, размер станет 16 кил

Впрочем, VBA не обязателен: Правка -- Перейти -- Выделить -- Объекты, правый клик на любом и Вырезать - с тем же результатом.

ZORRO2005 · 11.04.2008, 13:07

CTRL+G
Выделить объекты...

SAS888 · 11.04.2008, 13:36

Могу добавить, что существующие на листе объекты - это одна и та же картинка, взятая из http://autonews.by

valerij · 11.04.2008, 21:52

Цитата:

Сообщение от дмидми

Если выполнить Правка -- Перейти -- Выделить -- Объекты

Потом Кл. "Del", сохранить и =16 кб

Exel_Wild · 14.04.2008, 12:47

Всем огромное человеческое СПАСИБА!

11.04.2008, 12:35	#2
дмидми Форумчанин Регистрация: 06.03.2008 Сообщений: 352	Не такая уж это и пустышка - 1990 объектов :) Если выполнить (а надо?) Код: `Sub KillAllShapesOnActiveSheet() Dim ws As Worksheet, sh As Shape For Each sh In ActiveSheet.Shapes sh.Delete Next End Sub` , размер станет 16 кил Впрочем, VBA не обязателен: Правка -- Перейти -- Выделить -- Объекты, правый клик на любом и Вырезать - с тем же результатом. Последний раз редактировалось дмидми; 11.04.2008 в 12:47. Причина: Добавлена рукопашная

11.04.2008, 13:36	#4
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Могу добавить, что существующие на листе объекты - это одна и та же картинка, взятая из http://autonews.by Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Плеер размером в 3Кб (1654 байт пожатый)	JTG	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	28	20.10.2012 11:07
Как наложить иконку с исходным размером 16х16 на битмап с размером 32х32?	SkAndrew	Мультимедиа в Delphi	1	26.04.2008 14:44
проблема с *.chm	FAiver	Свободное общение	5	28.09.2007 21:01
проблема с URL	Scorpeon	Помощь студентам	1	18.06.2007 13:28

11.04.2008, 13:07	#3
ZORRO2005 Форумчанин Регистрация: 26.11.2006 Сообщений: 584	CTRL+G Выделить объекты...

14.04.2008, 12:47	#6
Exel_Wild Новичок Джуниор Регистрация: 11.04.2008 Сообщений: 2	Всем огромное человеческое СПАСИБА!