Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.04.2008, 12:00   #1
Exel_Wild
Новичок
Джуниор
 
Регистрация: 11.04.2008
Сообщений: 2
Сообщение Проблема с размером :)

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

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

внизу привожу пустышку весом в пол метра...
Вложения
Тип файла: zip 1.zip (29.1 Кб, 33 просмотров)
Exel_Wild вне форума
Старый 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:07   #3
ZORRO2005
Форумчанин
 
Аватар для ZORRO2005
 
Регистрация: 26.11.2006
Сообщений: 584
По умолчанию

CTRL+G
Выделить объекты...
ZORRO2005 вне форума
Старый 11.04.2008, 13:36   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Могу добавить, что существующие на листе объекты - это одна и та же картинка, взятая из http://autonews.by
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 11.04.2008, 21:52   #5
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Цитата:
Сообщение от дмидми Посмотреть сообщение
Если выполнить Правка -- Перейти -- Выделить -- Объекты
Потом Кл. "Del", сохранить и =16 кб
valerij вне форума
Старый 14.04.2008, 12:47   #6
Exel_Wild
Новичок
Джуниор
 
Регистрация: 11.04.2008
Сообщений: 2
По умолчанию

Всем огромное человеческое СПАСИБА!
Exel_Wild вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Плеер размером в 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