Не сжимаются картинки в excel

Не сжимаются изображения в файле эксель

chestersounder

Дата: Среда, 09.03.2022, 00:55 |
Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5


Репутация:

0

±

Замечаний:
0% ±


Приветствую!
Проблема следующая.
Есть файл с прайсом и кучей картинок весом 30 мб.
Пытался его как обычно сжать, но ничего не получается. Никак не пойму в чем дело.
Что делал:
1. «Формат» → «сжать рисунки» (галочку «применить только…» снимал). Выбирал разные разрешения, в том числе и самый низки вариант в 96px.
Сохранил. Толку 0.
2. «Настройки» → «дополнительно»: ставил галочку на «удалить данные редактирования» + выбирал минимальное разрешение «по умолчанию».
Сохранил. Толку 0.

Ну, не совсем 0, файл уменьшился до 28 мб. Данные для редактирования не удаляются. После открытия файла я все так же легко могу растянуть изображения до исходного размера и качества.

Пожалуйста, помогите, уже кучу времени убил. В инете тоже не удалось насерфить похожую проблему.
Я бы скинул файл, да только здесь нельзя более 500кб и ссылки тоже запрещено размещать на другие ресурсы, так что не знаю как это сделать легально)

 

Ответить

Serge_007

Дата: Среда, 09.03.2022, 09:13 |
Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 15894


Репутация:

2623

±

Замечаний:
±


Excel 2016

ЗдравствуйтеДостаточно обратиться к любому члену администрации


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

chestersounder

Дата: Среда, 09.03.2022, 11:57 |
Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5


Репутация:

0

±

Замечаний:
0% ±


Serge_007, здравствуйте
На сколько я вижу, Вы тоже член администрации. К Вам тоже можно обратиться? =)
Если да, то обращаюсь. Личные сообщения от пользователей Вы не принимаете, поэтому пишу здесь.

Уважаемый, Serge_007!
Прошу Вас помочь в решении проблемы по выкладке файла большого размера в моем посте.

 

Ответить

Serge_007

Дата: Среда, 09.03.2022, 12:02 |
Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 15894


Репутация:

2623

±

Замечаний:
±


Excel 2016

chestersounder, присылайте файл мне на почту (e-mail указан в профиле)


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

Serge_007

Дата: Четверг, 10.03.2022, 09:06 |
Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 15894


Репутация:

2623

±

Замечаний:
±


Excel 2016


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

chestersounder

Дата: Четверг, 10.03.2022, 11:52 |
Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5


Репутация:

0

±

Замечаний:
0% ±


Serge_007, спасибо
Добавлю, что данный файл редактировался неоднократно. Проблемные изображения — это которые идут в разделе «сувенирные 170 г» в картонной коробочке с белым бортиком.
Вот их я добавил в последний раз и у них не удаляются данные редактирования, чем и обуславливается большой вес, судя по всему.

 

Ответить

chestersounder

Дата: Четверг, 10.03.2022, 18:39 |
Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5


Репутация:

0

±

Замечаний:
0% ±


Видать, проблемка не сильно вас заинтриговала, ну что ж, а я все мучаюсь, стал копать еще дальше и кое-что нарыл. Довольно интересно, кстати.
Фишка в том, что, оказывается, все изображения в данном файле сжимаются абсолютно нормально и даже удаляются данные редактирование, только вот кроме
всех тех изображений, которые я сдал добавлять при последнем редактировании файла. А это все изображения «сувенирные 170 г» и еще парочка.
И только эти изображения я предварительно прогонял через онлайн компрессор. Единственное отличие этих изображений, которое я нашел,
заключается в том, что изображения до онлайн компрессора 32 битные, а после обработки 8 битные. Т.е. что, у экселя какие-то проблемы с 8-ми битными картинками?
Может, конечно, дело не в битности, а есть еще какие-то отличия, но я не знаю как это проверить.
Вот и что с этим делать?
Я бы мог, конечно, заново вставить изображения в файл, которые еще не прогонял через компрессор, а затем уже сжать все через эксель,
но это ужасно много времени займет. Как бы все-таки ужать текущие изображения?

 

Ответить

DrMini

Дата: Пятница, 11.03.2022, 21:01 |
Сообщение № 8

Группа: Проверенные

Ранг: Старожил

Сообщений: 1020


Репутация:

93

±

Замечаний:
0% ±


Excel LTSC 2021 RUS

Видать, проблемка не сильно вас заинтриговала

Да нифига эта проблемка никого не заинтриговала.
Просто сжатие изображений это не про Еxcel (в какой то степени).
Подготовьте фотки с нужным разрешением для помещения в файл, а если это невозможно то не несите пургу.

 

Ответить

chestersounder

Дата: Воскресенье, 13.03.2022, 02:54 |
Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5


Репутация:

0

±

Замечаний:
0% ±


DrMini, спасибо, дружище ветеран

Вопрос закрыт, сам справился

 

Ответить

Сжатие отдельных рисунков

Если для получения приемлемой версии изображения пиксель не требуется каждый элемент, можно сжать изображения, чтобы уменьшить размер файла.

  1. Открыв файл в приложении Microsoft Office, выберите один или несколько рисунков для сжатия.

  2. В разделе Работа с рисунками на вкладке Формат в группе Изменение нажмите кнопку Сжать рисунки.

    замещающий текст

    Если вкладки Работа с рисунками и Формат не отображаются, убедитесь, что рисунок выделен. Дважды щелкните рисунок, чтобы выделить его и открыть вкладку Формат.

    В зависимости от размера экрана в группе Изменение могут отображаться только значки. В этом случае кнопка Сжать рисунки отображается без подписи.

    замещающий текст

  3. Чтобы выполнить сжатие только для выбранных, а не для всех рисунков в документе, установите флажок Применить только к этому рисунку.

    Снятие флажка Применить только к этому рисунку перекроет любые изменения, внесенные для других отдельных рисунков в этом документе.

  4. В разделе Разрешение выберите нужный вариант и нажмите кнопку ОК.

    Примечания: 

    • Разрешение рисунка по умолчанию в Office равно 220 ppi. Вы можете изменить разрешение рисунка по умолчанию илиотключить сжатие рисунков.

    • Сжатие применяется после закрытия этого диалогового окна. Если вас не устраивают результаты, вы можете отменить изменения.

    • Сжатие рисунка может сделать изображение другим из-за потери детализации. По этой причине перед применением этого эффекта необходимо сжать рисунок и сохранить файл.

    Щелкните заголовки ниже, чтобы получить дополнительные сведения.

Важно: Этот параметр применяется только к рисункам в текущем документе или в документе, выбранном из списка рядом с разделом Размер и качество изображения. Чтобы использовать его для всех новых документов, нужно выбрать другое значение в раскрывающемся списке.

Обратите внимание на то, что эта функция недоступна в Microsoft Project 2013 или Office 2007.

  1. Откройте вкладку Файл.

  2. Нажмите кнопку Параметры и выберите пункт Дополнительно.

  3. В разделе Размер и качество изображения в раскрывающемся списке укажите, применить ли изменения к определенному документу, или применять их ко всем создаваемым документам.

    замещающий текст

  4. Выберите разрешение, которое вы хотите использовать по умолчанию, и нажмите кнопку ОК.

Все сведения об изменениях, внесенных в рисунок, хранятся в файле. Вы можете уменьшить размер файла, удалив эти данные редактирования, но если вы хотите отменить изменения, потребуется повторно вставить рисунок.

Примечание: Эта функция недоступна в Microsoft Project 2013 или Microsoft Project 2016.

  1. Откройте вкладку Файл.

  2. Нажмите кнопку Параметры и выберите пункт Дополнительно.

  3. В разделе Размер и качество изображения выберите документ, из которого необходимо удалить данные о редактировании рисунка.

  4. В разделе Размер и качество изображения установите флажок Отменить данные редактирования.

Примечание: Этот параметр применяется только к рисункам в текущем документе или в документе, выбранном из списка рядом с разделом Размер и качество изображения.

См. также

Изменение разрешения по умолчанию для вставки рисунков в Office

Редактирование фотографий без использования диспетчера рисунков

Сжатие файлов мультимедиа в презентации

Обрезка рисунка

Отключение сжатия рисунка

Сжатие отдельных рисунков

  1. Чтобы сжать все рисунки в документе, на ленте выберите файл > «Сжать рисунки» (или «> уменьшить размер файла»).

    На вкладке "Рисунок" выберите "Сжать рисунки"

    Чтобы сжать только выбранные рисунки, удерживая нажатой клавишу SHIFT, щелкните нужные рисунки и нажмите кнопку » Кнопка Сжатие рисунков рисунки» на вкладке «Формат рисунка«.

  2. Выберите параметр в поле «Качество рисунка». Наивысшее разрешение отображается первым, а наименьшее — последним.

    Совет: Если вы обрезали какие-то из рисунков, то размер файла можно дополнительно уменьшить, установив флажок Удалить обрезанные области рисунков.

  3. Выберите выделенным рисункам или всем рисункам в этом файле.

    Примечание: Если выбрать все рисункина шаге 1 с помощью меню «Файл», эти параметры будут недоступны. Сжатие будет применяться ко всем изображениям в документе.

 

Menshikov

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

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

Всем привет!  
Облазил весь поиск и ни чего не нашел.  
Очень нужна СПЕЦИАЛИСТА в написании макроса по сжатию рисунков в книге EXCEL при помощи активной кнопки на листе, на первый взгляд все и так просто, для сжатия рисунков необходимо нажать на кнопку сжать, которая появляется на основной панели EXCEL, выбрать параметр сжатия 220, 150 или 96 пикселов и сохранить файл. У меня же все через Ж…., Excel 2007 отказывается жать картинки, наверное глюк, ставил патчи и обновления — не помогает  
Необходимый параметр сжатия – 150 пикселов.  
Я очень надеюсь на Вашу помощь!!!  
Спасибо!

 

ytk5kyky

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

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

Эксель — графический редактор?  
Вот если по тексту «EXCEL» заменить на «Adobe Photoshop», то где-то начинает появляться смысл.  
Или я один такой тупой?

 

{quote}{login=Лузер™}{date=24.07.2009 08:58}{thema=}{post}Эксель — графический редактор?  
Вот если по тексту «EXCEL» заменить на «Adobe Photoshop», то где-то начинает появляться смысл.  
Или я один такой тупой?{/post}{/quote}  

  А причем тут Adobe Photoshop, смею предположить, что ты не въехал в суть вопроса, он заключается в следующем.  
Excel 2003 жмет все картинки без разбора — ЭТО ХОРОШО, у меня стоит Excel 2007, не знаю почему но не сжимает картинки в вообще — ЭТО ПЛОХО.  
ВНИМАНИЕ ВОПРОС:  
Как по средствам VBA, т.е. макроса сжать все картинки рабочей книги Excel до 150 пикселов???

 

ytk5kyky

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

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

Реально не въехал. Потому и написал.  
И продолжаю тупить.  
Картинки в экслеле, они где? в ячейке, в примечаниях, в подложке листа…  
Как объект…

 

{quote}{login=Лузер™}{date=24.07.2009 09:22}{thema=}{post}Реально не въехал. Потому и написал.  
И продолжаю тупить.  
Картинки в экслеле, они где? в ячейке, в примечаниях, в подложке листа…  
Как объект…{/post}{/quote}  

  Картинки в ячейках

 

Юрий М

Модератор

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

Контакты см. в профиле

Меня вот тоже заинтересовал вопрос — каким образом Excel жмёт картинку? Например, меню Вставка — Рисунок — Из файла… Вствили картинку. Предположим, что Excel её сжал. Теперь нужно сравнить её размер с исходной. Значит нужно извлечь эту картинку из Книги, поместить её в какой-либо графический редактор, сохранить (ничего не меняя). И после этого сравнить. Так?

 

Menshikov

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

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

{quote}{login=Юрий М}{date=24.07.2009 12:43}{thema=}{post}Меня вот тоже заинтересовал вопрос — каким образом Excel жмёт картинку? Например, меню Вставка — Рисунок — Из файла… Вствили картинку. Предположим, что Excel её сжал. Теперь нужно сравнить её размер с исходной. Значит нужно извлечь эту картинку из Книги, поместить её в какой-либо графический редактор, сохранить (ничего не меняя). И после этого сравнить. Так?{/post}{/quote}  

  Вставляем картинку именно так, как Вы описали, либо макросом, а сравнивать размер можно на много проще, если Вы вставили в лист 10 картинок по 1,5 Мб, он ни как не будет весить менее 15 мегабайт, тут используется функция сжать, которая появляется на главной панели при выделении любого графического объекта на листе, там мы выбираем тип сжатия:  
— для печати 220 пикселов  
— для Интернет страниц 150 пикселов  
— для эл. почты 96 пикселов  
После ставим соответствующие галочки,сжать все картинки на листе и жмем ОК, Excel жмет все картинки убивая разрешение и качество до выбранного ранее разрешения, после чего сохраняем файл и он весит не более 500 Кб, вместо 15 Мб изначально.  
Вроде все просто и макрос для этого не нужен, но у меня стоит лицензионный Excel 2007, и он не хочет сжимать картинки как 2003, почему — Я НЕ ЗНАЮ. Именно поэтому я создал эту тему, с вопросом, как через макрос повторить эту процедуру сжатия, которую Excel делать должен сам но почему то не делает.

 

ytk5kyky

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

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

Я думаю, что картинка не в ячейке, а  Вставка — Рисунок — Из файла. Тогда в формате рисунка есть кнопка «Сжать»  
У меня не столь богато и нет такого выбора (220, 150 или 96 пикселов), но 200 и 96 есть.  
Думаю, такая кнока разыскивается в 2007-м. Я 2007-й еще не ставил.  
И вообще картинки можно сначала подготовить (хоть в том же фотошопе) а уж потом в эксель пихать (мне, правда, непонятно — зачем они там вообще?)

 

Юрий М

Модератор

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

Контакты см. в профиле

Теперь понял о чём разговор. Помочь не могу — нет 2007-го, чтобы посмотреть :-)

 

BioVR

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

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

Попытаюсь реанимировать тему :)  
И все же, как макросом сжать фото?  
Надо, чтобы макрос работал при закрытии книги, т.е. пользователь поработал с книгой, нажал на закрыть и сохранить и в этот момент макрос сжимает на максимально возможном сжатии все имеющиеся картинки в книге (вставленные по принципу «вставка рисунка» или скопированные из другой книги).  

  Между прочим, функция очень полезна тем, кто работает с отчетами получаемыми от различных людей, которые содержат фото, т.к. вставить в отчет такой макрос куда проще, чем объяснить каждому как сжать фото, а еще веселее объяснять тому, кто совсем не шарит в excel. Плюс исчезает возможность «забыть сжать фото» :)

 

Я как-то задавался этим вопросом:

http://www.programmersforum.ru/showthread.php?t=36102  

Ответа не нашёл до сих пор…  

  Самый простой способ — запускать сжатие картинок вручную.

 

BioVR

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

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

{quote}{login=EducatedFool}{date=10.09.2010 12:48}{thema=}{post}Я как-то задавался этим вопросом:

http://www.programmersforum.ru/showthread.php?t=36102  

Ответа не нашёл до сих пор…  

  Самый простой способ — запускать сжатие картинок вручную.{/post}{/quote}  
Понятно, что самый простой )))  
Но раз функция есть в excel, значит ее можно вызвать через запрос макроса. Вопрос как… Предлагаю совместными усилиями разобраться! Уверен, что решение есть или его можно создать…  

  С вопросом по переносу форматирования ячейки тоже говорили что нет решения…

 

BioVR

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

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

Нашел такую статейку:

http://infostart.ru/public/19977/  

  Не понял как работает, но судя по описанию применено автоматическое сжатие фото.

 

Можно сохранить книгу как Web-страницу. В папке «.files» будут картинки. Их размер зависит от параметра из «параметров веб-документа:  

  ActiveWorkbook.WebOptions.PixelsPerInch = 96  

  Потом повставлять эти картинки вместо существующих в документе.  

  Я делал это когда-то вручную, и размер файла уменьшался в несколько раз.  
К сожалению, сейчас нет времени (и подходящего документа), чтобы отладить такую программу.

 

BioVR

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

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

Нашел такой код:  
Sub Compress_PIX()  

  Dim octl As CommandBarControl  

  With Selection  
   Set octl = Application.CommandBars.FindControl(ID:=6382)  
   Application.SendKeys «%e~»  
   Application.SendKeys «%a~»  
    octl.Execute  
End With  

  End Sub    

  Тут:

http://vbadud.blogspot.com/2010/05/how-to-compress-pictures-in-excel-using.html  

  Но у меня он не работает, точнее макрос срабатывает, но вес файла не изменяется.  

  Но, столкнулся с приятным моментом, в посте про импорт фото (

http://www.planetaexcel.ru/forum.php?thread_id=19052

) я выкладывал пример. Так вот, если фото импортировать через тот макрос и сохранить файл размер меняется не значительно! — сам файл весит 48 640 бит, после вставки 5 фото весом по 4,08 МБ, вес файла становится 57 344 бит.  
Не понимаю природы явления, но факт остается фактом!  
Если не сложно, потестите у себя, такой же будет результат? (у меня 2010 офис)

 

BioVR

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

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

Господа, вы хоть напишите, что тема не интересна… А то вроде обсуждение пошло, но все благополучно о теме забыли…

 

KuklP

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

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

E-mail и реквизиты в профиле.

BioVR, не кипятитесь. Перечитайте пост от The_Prist 10.09.2010, 13:24 и 10.09.2010, 13:58. Если нужно, задайте наводящие вопросы.

Я сам — дурнее всякого примера! …

 

BioVR

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

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

{quote}{login=KuklP}{date=13.09.2010 11:40}{thema=}{post}BioVR, не кипятитесь. Перечитайте пост от The_Prist 10.09.2010, 13:24 и 10.09.2010, 13:58. Если нужно, задайте наводящие вопросы.{/post}{/quote}  
KukIP, приношу извинения, если в предыдущее сообщение выглядит раздраженно.  
Я согласен с высказыванием The_Prist, меня больше заинтересовал момент, который происходит с макросом, который вставляет фото.  
С ним есть еще один момент — вставка фото происходит корректно не на всех машинах, в части из них фото вставляется не в ту ячейку, в которую должна и мне не совсем удалось понять — в итоге на других машинах макрос сжимает фотки или нет? Если нет, то каковы причины явления?  
Про сжатие данным макросом — в нем нет никаких вызовов функций сжатия, он просто вставляет фото/картинки. Разве не интересно почему так происходит?  
Выкладываю последний вариант кода.

 

BioVR

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

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

Разобрался с причиной «волшебного» сжатия у меня… Выяснилось, что фото вставлялось по типу вставки «связать с объектом», собственно если объект переместить, то это приводит к отсутствию вставленного рисунка в файле.  

  Но все же, никто не нашел ничего нового по сжатию?

 

BioVR

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

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

В итоге достигнутый результат по сжатию картинок тут:  

http://www.planetaexcel.ru/forum.php?thread_id=19166  

  P.S. Лучше темы объединить или текущую удалить.

 

Роман,вы открыли свой файл в эксель 2007,нажмите на картинку,чтобы она кабы была выделена,потом в правом левом углу нажмите пуск и выберете «преобразовать» .согласитесь с тем что файл будет сжат и исходный вариант удален.Ваш файл сжат.

 

{quote}{login=Евгения}{date=08.12.2010 12:22}{thema=сжать картинку с excel 2007}{post}Роман,вы открыли свой файл в эксель 2007,нажмите на картинку,чтобы она кабы была выделена,потом в правом левом углу нажмите пуск и выберете «преобразовать» .согласитесь с тем что файл будет сжат и исходный вариант удален.Ваш файл сжат.{/post}{/quote}  

  Евгения, Вы умничка! Спасибо.

 

А как сжать картинки в 2010?

 

Vlad

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

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

{quote}{login=Евгения}{date=08.12.2010 12:22}{thema=сжать картинку с excel 2007}{post}Роман,вы открыли свой файл в эксель 2007,нажмите на картинку,чтобы она кабы была выделена,потом в правом левом углу нажмите пуск и выберете «преобразовать» .согласитесь с тем что файл будет сжат и исходный вариант удален.Ваш файл сжат.{/post}{/quote}  
Евгения, не могли бы Вы поподробнее объяснить последовательность действий. Спасибо!

 

Vlad, Евгения была тут год назад, сейчас она уже и не помнит про этот форум, наверное.

 

Размер документа Microsoft Offic с фотографиями — 90мб. После сжатия в в 2010 вес файла (с 2-мя промежуточными сохранениями)- 19 мб, а после сжатия в 2003 — 6 мб.    
Вопрос, как сжимать в 2010, что-бы результат соответствовал 2003?

 

файлы 2007 и 2010 года можно открыть в архиваторе — в папке xl будет папка media — в ней хранятся все фото, переносите все в отдельную папку — сжимаете как хотите, меняете размер и др. — перетаскивайте обратно в архив с заменой предыдущих.

 

к сожалению, чтобы научить менеджеров описанному вами процессу надо минимум пол года. + получить кучу служебок начальству, что в 2003 все работало нормально. Поэтому ищется более дружелюбный для юзера способ, в виде одной кнопки.

 

anvg

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

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

Excel 2016, 365

Так же всё и в 2010. Щёлкнуть на рисунке. На вкладке «Работа с рисунками» есть кнопка «Сжать рисунки». В диалоговом окне можно настроить требуемое разрешение при сжатии и применять ли только к выделенному рисунку. Скриншоты во вложении

 

Chesh

Гость

#30

14.08.2012 12:19:29

Господа, читать умеем и пользоваться поиском тоже:  

http://office.microsoft.com/ru-ru/powerpoint-help/reduce-the-file-size-of-a-picture-HA010355854.aspx#BMdefaultpicres  
http://office.microsoft.com/en-us/powerpoint-help/reduce-the-file-size-of-a-picture-HA010355854.aspx  

Именно так и делали, только в 2010, после сжатия вес файла (с 2-мя промежуточными сохранениями)- 19 мб, в 2003 — 6 мб.    
Поэтому и ищется макрос, программа или где в реестре поправить что можно, чтобы получить нормальный результат.

Москва: +7 (495) 797-43-37
Россия: +7 (800) 775-03-87

06.06.2014

Файлы Excel, помимо прочего, широко применяются для подготовки спецификаций и каталогов товаров и их последующей рассылки контрагентам. Вложенные в них графические элементы (фотографии товаров, чертежи, графики и пр.) сильно раздувают их размер, что затрудняет пересылку по почте (у кого-то каналы связи плохие, у кого-то установлены драконовские ограничения на максимальный размер почтового сообщения на серверах). При этом архивация этих файлов традиционными средствами — WinRAR’ом или 7zip’ом — помогает не сильно: и без того сжатые графические форматы ни в какую не желают сокращаться в размерах. Однако есть способ сжимать графику внутри файлов собственными средствами Excel. Приступим.

Для наглядности мы подготовили увесистый excel-файл. Он насчитывает с десяток фотографий и весит порядка 7 Мбайт:

how-to-compact-excel-with-graphics-01.png

Открываем его в Excel, выделяем любой рисунок, в меню сверху выбираем «Работа с рисунками — Формат», после чего нажимаем кнопку «Сжать рисунки»:

how-to-compact-excel-with-graphics-02.png

В появившимся окне убираем галочку «Применить только к этому рисунку» (мы же хотим сжать всю графику?) и выбираем качество вывода в зависимости от потребности. Уровень «Электронная почта» для нас представляется оптимальным:

how-to-compact-excel-with-graphics-03.png

Нажимаем «Ок», проверяем «читаемость» графики (чтобы она не выглядела хуже, чем была при исходных параметрах), сохраняем файл. И проверяем его размер:

how-to-compact-excel-with-graphics-04.png

Сжатие почти в 10 раз — это, кажется, успех! Осталось только разослать полученный файл контрагентам. Благо теперь для этого практически никаких препятствий нет.

Как уменьшить размер файла эксель с картинками

Уменьшение размера файла рисунка в Microsoft Office

Вы можете уменьшить размер файлов и сэкономить пространство на диске с помощью сжатия рисунков в документе. Параметры сжатия уменьшают размер файла и размеры рисунка в зависимости от того, как вы планируете использовать изображение, например просматривать на экране или в сообщении электронной почты. Сжать можно все рисунки в файле или только специально выделенные.

Эти возможности недоступны в Office Online, а только в классической версии набора приложений Office.

Вы можете отправлять файлы без ограничений, в том числе изображения высокого качества, сохранив их в облаке, а затем предоставив к ним общий доступ в OneDrive.

Сжатие отдельных изображений

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

Открыв файл в приложении Microsoft Office, выберите один или несколько рисунков для сжатия.

В разделе Работа с рисунками на вкладке Формат в группе Изменение нажмите кнопку Сжать рисунки.

Если вкладки Работа с рисунками и Формат не отображаются, убедитесь, что рисунок выделен. Дважды щелкните рисунок, чтобы выделить его и открыть вкладку Формат.

В зависимости от размера экрана в группе Изменение могут отображаться только значки. В этом случае кнопка Сжать рисунки отображается без подписи.

Чтобы выполнить сжатие только для выбранных, а не для всех рисунков в документе, установите флажок Применить только к этому рисунку.

Снятие флажка Применить только к этому рисунку перекроет любые изменения, внесенные для других отдельных рисунков в этом документе.

В разделе Разрешение выберите нужный вариант и нажмите кнопку ОК.

По умолчанию в Office используется разрешение рисунка 220 ppi. Вы можете изменить разрешение рисунка по умолчанию или выключить Сжатие рисунков.

Сжатие применяется после закрытия этого диалогового окна. Если вас не устраивают результаты, вы можете отменить изменения.

Сжатие рисунков может привести к тому, что изображение будет выглядеть иначе из-за потери данных. Из-за этого вы должны сжать изображение и сохранить файл, прежде чем применять художественный эффект.

Щелкните заголовки ниже, чтобы получить дополнительные сведения.

Важно: Этот параметр применяется только к рисункам в текущем документе или в документе, выбранном из списка рядом с разделом Размер и качество изображения. Чтобы использовать его для всех новых документов, нужно выбрать другое значение в раскрывающемся списке.

Обратите внимание на то, что эта функция недоступна в Microsoft Project 2013 или Office 2007.

Откройте вкладку Файл.

Нажмите кнопку Параметры и выберите пункт Дополнительно.

В разделе Размер и качество изображения в раскрывающемся списке укажите, применить ли изменения к определенному документу, или применять их ко всем создаваемым документам.

Выберите разрешение, которое вы хотите использовать по умолчанию, и нажмите кнопку ОК.

Любые сведения об изменениях, внесенных в изображение, сохраняются в файле. Вы можете уменьшить размер файла, удалив данные для редактирования, но если вы хотите отменить изменения, вам нужно будет повторно вставить рисунок.

Примечание: Эта функция недоступна в Microsoft Project 2013 или Microsoft Project 2016.

Откройте вкладку Файл.

Нажмите кнопку Параметры и выберите пункт Дополнительно.

В разделе Размер и качество изображения выберите документ, из которого необходимо удалить данные о редактировании рисунка.

В разделе Размер и качество изображения установите флажок Отменить данные редактирования.

Примечание: Этот параметр применяется только к рисункам в текущем документе или в документе, выбранном из списка рядом с разделом Размер и качество изображения.

Обратная связь

Эта статья была обновлена с помощью Бен на 8/17/2019 в результате ваших замечаний. Если вы нашли ее полезными и, особенно, если вам не понравится, воспользуйтесь элементами управления отзывом, чтобы не отконструктиве идеи о том, как это можно сделать лучше.

Сжатие отдельных изображений

Чтобы сжать все рисунки в документе, на ленте выберите файл > Сжатие рисунков (или файл > уменьшить размер файла).

Чтобы сжать только выделенные изображения, щелкните их, удерживая нажатой клавишу SHIFT, а затем выберите команду Сжать рисунки на вкладке Формат рисунка .

В поле со списком качество рисунка выберите нужный вариант. Наилучшее разрешение указывается в списке в первую очередь, а минимальное разрешение — в списке последним.

Совет: Если вы обрезали какие-то из рисунков, то размер файла можно дополнительно уменьшить, установив флажок Удалить обрезанные области рисунков.

Выберите выделенным рисункам или всем рисункам в этом файле.

Примечание: Если вы используетеменю » файл» для выбора всех рисунков на этапе 1, эти параметры будут недоступны. Сжатие будет применено ко всем рисункам в документе.

Примечание: Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).

Как уменьшить размер файла эксель с картинками

Данный вопрос возникает периодически у многих и особенно на работе. Автор статьи решил написать некоторые рекомендации по уменьшению размера файла Microsoft Excel. Применив их Вы сможете понять – действительно ли Ваши данные настолько раздувают файл или же в файле имеется много лишнего.
Бывают ситуации, когда в файле всего один лист, данных на нем на 1000 строк и 20 столбцов. Никаких формул, только значения. Но размер файла непомерно велик – скажем 10 Мб и более. Это недопустимо. Или есть различные формулы, но Вы все равно считаете, что размер файла не соответствует тому, что должно бы быть по ощущениям. Следующие действия необходимо проделать на каждом листе книги:

  1. Первое, что необходимо вспомнить – а не в общем ли доступе Ваш файл? Если в Общем, то есть вероятность, что Ваш файл раздувается именно из-за этого. Дело в том, что при установке общего доступа к файлу, по умолчанию ведется журнал изменений, в который записываются все действия, произведенные в книге за период, указанный в параметрах. Как избавиться или изменить период: Excel 2007-2010:вкладка Рецензирование – Доступ к книге;Excel 2003:Сервис – Доступ к книге. Переходим на вкладку Подробнее. Для начала активируйте пункт “Не хранить журнал изменений”. Сохраните файл. Затем установите кол-во дней, в течении которых хотите хранить журнал. По умолчанию – 30, но Вы можете сделать меньше, если файл сильно разбухает.
  2. Перейдя на лист, нажмите Ctrl+End. Активируется последняя ячейка листа. Если она расположена ниже или правее последних данных таблицы(или просто данных) – то удалите все строки и столбцы после последних данных таблицы. Удалите полностью строки. Сделать это быстро можно так. Нажали Ctrl+End, попали на последнюю ячейку. Выделили эту строку, нажали Ctrl+Shift+стрелка Вверх. Выделились все строки вместе с последней строкой Ваших данных. Удерживая Shift жмете стрелку Вниз. Тоже самое и со столбцами.
  3. Посмотрите лист на предмет форматирования. Необходимо избегать форматирования ЦЕЛИКОМ столбцов либо строк. Это приводит к раздуванию файла. Все форматирование, выходящее за границы таблицы необходимо убрать. А еще лучше – вообще избегать излишнего форматирования, особенно если книгой никто, кроме Вас не пользуется. Вместо Заливки ячеек – Белым цветом ставьте “Нет заливки”.Чтобы убрать все форматирование из ячеек: выделяете необходимый диапазон и: для Excel 2003:Правка – Очистить – Формат. В Excel 2007-2010:вкладка Главная – Очистить – Очистить форматы.
  4. Удаляем объекты: В Excel 2003:меню Правка- Перейти – Выделить – Объекты. в Excel 2007-2010:вкладка Главная-Найти и выделить-Выделение группы ячеек-Объекты. Нажмите Delete. Все объекты на листе будут удалены. Правда есть небольшой шанс, что у Вас есть скрытые объекты. Тогда надо идти в редактор VBA(Alt+F11)-Ctrl+R. Отображаете окно свойств(F4). Находите в дереве слева объект ЭтаКнига(ThisWorkbook) и в нижнем окне свойств свойство – DisplayDrawingObjects и ставите там значение – -4104-xlDisplayShapes. После этого переходите опять на лист и повторяете операции по выделению и удалению объектов, описанные выше. Нахождение на листе объектов не означает, что Вы их видите. Как правило такие объекты попадают на лист в результате копирования из других файлов, содержащих объекты. Объекты в некоторых случаях переносятся с нулевой длиной и шириной. Как следствие – объект не видно, но файл увеличивается в размерах. И при каждом копировании он начинает увеличиваться в размерах в геометрической прогрессии. Мало того, файл начинает дико тормозить даже при выделении ячеек. Выделили ячейку, хотите выделить другую – файл задумался на пару секунд.
  5. Еще в книге могут содержаться скрытые листы, на которых может содержаться ненужная Вам информация и с которыми можно проделать операции, описанные выше. Как их обнаружить можно узнать, прочитав эти статьи: Как сделать лист скрытым? Как сделать лист очень скрытым

После всех этих действий необходимо сохранить файл, чтобы изменения вступили в силу. Только после этого Вы сможете проверить – изменился размер файла или нет. Я бы советовал сохранять файл как копию, если не уверены, что удалили действительно ненужное. Ну вот, вроде, и все. Надеюсь данная статья помогла Вам.

От себя лично добавлю, что чаще всего встречаются 2 и 4 пункты. Таким образом был «вылечен» файл размером 35Мб. Теперь он имеет размер 1.8Мб.

Как уменьшить размер файла Excel?

XLS таблицы могут весить несколько десятков мегабайт. Если для жесткого диска или даже самой небольшой флешки это не критично, то для скорости обработки самого файла – ощутимо. Более громоздкие файлы открываются медленнее, работать в них сложнее.

Предлагаем инструкцию, как можно уменьшить размер Excel-файла и ускорить работу с таблицами.

Уменьшить рабочую зону

Часто рабочая зона xls-файла не соответствует реальной. При открытии программа обрабатывает кучу пустых ячеек, которые не нужны для работы. Соответственно увеличивается и размер файла, и скорость работы в нем.

Откройте таблицу и нажмите клавиши Ctrl+End. Программа переместит вас на крайнюю строку, которую она считает рабочей. Сравните, где реально заканчивается ваша таблица и номер крайней ячейки.

Например, у вас таблица реально заканчивалась на 667 строке, а после нажатия клавиш Ctrl+End нас переместили на 1971 строку. Выходит, что 1304 строки нам не нужны, но программа считает их рабочими – и обрабатывает при открытии.

Нам нужно удалить лишние строки и ячейки. Кликаем на первую пустую ячейку под таблицей, нажимаем комбинацию клавиш Ctrl+Shift и стрелку вниз. Так выделятся все пустые строки. Забавно, что у нас выделилось более 60 тысяч строк, а не до 1971.

Кликаем правой кнопкой мышки на выделенную область и нажимаем «Удалить». Пользуйтесь только таким способом удаления, не нажимайте клавишу Del. Потому что с клавишей Delete удаляется только содержимое таблицы, но не сама таблица.

После этого появится сообщение, где мы выбираем «Строку» и нажимаем ОК.

Размер файла должен уменьшиться, и время на его обработку тоже сократится.

Лишнее форматирование

Сделайте таблицу с минимальным форматированием. Если специфика работы не требует выделения ячеек другим цветом и другой наглядности, откажитесь от этого. Даже выделение текста жирным шрифтом или курсивом – уже на несколько десятых килобайт утяжеляет таблицу.

То же касается, если таблица с картинками. Удалите лишние изображения.

Сжатие изображений

Но если все-таки нельзя удалить картинку или фото из документа, ее можно сжать. Выделяем изображение и кликаем на вкладку «Формат». Здесь нам нужно выбрать пункт «Сжать рисунки».

Выставляем настройки так, как показано на скриншоте, и нажимаем «ОК».

Качество изображение почти не изменилось, но его размер сократился. Так можно проделать и с другими картинками в таблице.

Удаление ссылок

Внутренние и внешние ссылки таблицы утяжеляют файл. Избавьтесь по возможности от них. Но делать это нужно осторожно: если ссылки в таблице динамические и будут изменяться со временем, удалять такое содержимое нельзя. Если же таблица содержит статические данные, которые не будут изменяться, удалите ссылки (замените их на статические).

Выделяем область ссылок. Копируем их клавишами Ctrl+C, а затем кликаем правой кнопкой мышки по выделенной области. Выбираем в параметрах вставках пункт «Значение» (обозначено на скриншоте).

Сохраняем файл в другом формате

Формат XLS – несколько устаревший, потому что сейчас новые версии Excel используют сжатый формат XLSX (по аналогии с вордом – docx). Чтобы сохранить файл в другом формате, кликните вверху таблицы контекстное меню «Файл» и нажмите «Сохранить как».

Сохраните файл на компьютер, выбрав тип файла «Книга Excel». Таблица сохранится в новом расширении xlsx и будет весить меньше. Для сравнения: наш файл xls весил чуть больше 200 Кб, а новый xlsx более чем в два раза меньше – 78 Кб.

Сжатие файлов онлайн

Можно воспользоваться онлайн-сервисами, которые предлагают сжать эксель файл. Один из таких – Wecompress (https://www.wecompress.com/ru/). Заходим на главную страницу и выбираем файл, нажав на плюсик.

Дождитесь окончания сжатия. Чем больше размер файла, тем дольше это займет времени.

В нашем случае сервис вообще не нашел элементов, которые можно сжать, о чем мы увидели сообщение.

Попробуем взять таблицу с изображением, чтобы посмотреть, как качественно работает сервис.

Мы загрузили файл размером 856 Кб, а вышло в итоге 356 Кб. Сервис быстро удалил ровно 500 Кб лишнего объема.

Кстати, можно установить расширение Wecompress для браузера Google Chrome.

Итак, сжать таблицу Excel можно с помощью 6 способов:

  • удалить лишнее форматирование;
  • удалить пустые строки и ячейки;
  • убрать ссылки или сделать их статичными;
  • сжать изображения внутри таблицы;
  • изменить разрешение файла на xlsx;
  • воспользоваться онлайн-сервисом и сжать файл.

Воспользуйтесь одним из способов, чтобы уменьшить объем excel файла и ускорить работу с таблицами.

Читайте еще много полезных статей о программе Excel:

Как уменьшить размер файла

Данный вопрос возникает периодически на различных форумах. Решил написать некоторые рекомендации по уменьшению веса файла. Применив их Вы сможете понять — действительно ли Ваши данные настолько раздувают файл или же в файле имеется много лишнего.
Почему я это пишу. Бывают ситуации, когда в файле всего один лист, данных на нем на 1000 строк и 20 столбцов. Никаких формул, только значения. Но размер файла непомерно велик — скажем 10 Мб. Этого недопустимо. Или есть различные формулы, но Вы все равно считаете, что размер файла не соответствует тому, что должно бы быть.

Автоматически убрать все лишнее из файла так же поможет команда надстройки MulTEx Оптимизировать книгу

При этом описанные ниже причины, которые влияют на размер файла, так же могут влиять и на его «быстродействие».

Следующие действия необходимо проделать на каждом листе книги:

  • Первое, что необходимо вспомнить — а не в общем ли доступе файл ? Если в Общем, то есть вероятность, что размер файла растет именно из-за этого. Дело в том, что при установке общего доступа к файлу, по умолчанию ведется журнал изменений, в который записываются все действия, произведенные в книге каждым пользователем за период, указанный в параметрах. Чем больше пользователей — тем сильнее раздувается файл. Как избавиться или изменить период:
    Excel 2007 и выше : вкладка Рецензирование (Review)Доступ к книге (Shared workbook) ;
    Excel 2003 : СервисДоступ к книге.
    Переходим на вкладку Подробнее(Advanced) и выбираем Не хранить журнал изменений (don’t keep change history) .
    Еще лучше — снять общий доступ с книги, сохранить. Если общий доступ все еще нужен, то открываем книгу и опять даем общий доступ, но теперь устанавливаем кол-во дней, в течении которых надо хранить журнал. По умолчанию — 30, но можно сделать меньше, если файл сильно разбухает за озвученный период. Далее неплохо бы отключить оба пункта в разделе Включить в личное представление (Include in personal view) : параметры печати (Print settings) и фильтры (Filter settings) . Личные представления позволяют сохранять для каждого пользователя файла свои параметры печати и настройки фильтров. Чем больше разных пользователей – тем больше настроек сохраняется и тем выше вероятность замедления работы файла и увеличения его размеров. А практическая ценность этих пунктов в ущерб удобству и быстроте работы с файлом сомнительная.
    После этого сохранить файл.
    Подробнее про общий доступ можно прочитать в статье: Ведение журнала сделанных в книге изменений
  • Убедитесь, что лист не содержит ячеек без данных , но занимающих пространство. Перейдя на лист, нажмите Ctrl+End. Активируется последняя ячейка листа. Если она расположена ниже или правее последних нужных рабочих данных — то удалите все строки и столбцы после последних данных таблицы. Удалите полностью строки. Сделать это быстро можно так. Нажимаем Ctrl+End и попадаем на последнюю ячейку. Выделяем эту строку и нажимаем Ctrl+Shift+стрелка Вверх. Выделились все строки вместе с последней строкой данных. Удерживая Shift жмем на клавиатуре стрелку Вниз. Тоже самое и со столбцами.
  • Посмотрите лист на предмет форматирования . Необходимо избегать форматирования ЦЕЛИКОМ столбцов либо строк. Это приводит к раздуванию файла. Все форматирование, выходящее за границы таблицы необходимо убрать. А еще лучше — вообще избегать излишнего форматирования, особенно если книгой никто, кроме Вас не пользуется. Вместо Заливки ячеек — Белым цветом ставьте «Нет заливки».Чтобы убрать все форматирование из ячеек: выделяете необходимый диапазон и:
    для Excel 2003 : ПравкаОчиститьФормат.
    В Excel 2007-2010 : вкладка Главная (Home)Очистить (Clear)Очистить форматы (Clear formats)
  • Проверить наличие в книге лишних объектов . Удаляем объекты:
    В Excel 2003: меню ПравкаПерейтиВыделитьОбъекты.
    в Excel 2007-2010: вкладка Главная (Home)Найти и выделить (Find & Select)Выделение группы ячеек (Go To Special. )Объекты (Objects) .
    Нажмите Delete. Все объекты на листе будут удалены. Правда есть небольшой шанс, что на листе так же есть и скрытые объекты. Тогда надо идти в редактор VBA (Alt+F11) —Ctrl+R. Отображаете окно свойств (F4). Находите объект ЭтаКнига (ThisWorkbook), в окне свойств этого объекта находите свойство DisplayDrawingObjects и ставите там значение — -4104xlDisplayShapes. После этого переходите опять на лист и повторяете операции по выделению и удалению объектов, описанные выше. Зачем все так сложно? То, что мы не видим все объекты на листе не означает, что их там нет. Плюс могут быть объекты нулевых размеров. Как правило «невидимые» и «нулевые» объекты попадают на лист в результате копирования из других файлов и работы различных макросов. И в некоторых случаях объекты переносятся с нулевой длиной и шириной или вообще невидимые. Как следствие — объект не видно, но файл увеличивается в размерах. И при каждом копировании он начинает увеличиваться в размерах в геометрической прогрессии, т.к. по умолчанию объекты копируются вместе с ячейками. После нескольких таких копирований-вставок файл начинает дико тормозить даже при выделении ячеек. Выделили ячейку, хотите выделить другую — файл задумался на пару секунд.
  • Если привыкли помечать ячейки примечаниями (вкладка РецензированиеСоздать примечание), то самое время задуматься так ли это необходимо. Т.к. примечание это тоже объект, то их избыточное количество на листах так же может привести к замедлению работы файла. Удалить все примечания из выделенных ячеек очень просто: выделяем ячейки — вкладка РецензированиеУдалить. Небольшой совет: если нет прямой необходимости в хранении примечаний именно таким образом, то самый правильный способ выделить отдельный столбец в таблице, в который заносить примечания для строки данных. Данный способ оптимально подходит для таблиц в правильной структуре. Тогда можно будет осуществлять поиск, сортировку и фильтрацию по примечаниям. Если примечаний уже много и информацию из них необходимо перенести в ячейки, то можно воспользоваться этим решением: Как получить текст примечания в ячейку?
  • Еще очень хорошо помогает удаление всех формул и связей . Удаление не в прямом смысле: заменить все формулы значениями, которые они вернули. Это можно сделать без макросов: выделяем все ячейки с данными на листе-Копируем-правая кнопка мыши-Специальная вставка-Значения. Но это не очень удобно, если листов много, поэтому я заготовил для этого еще и макрос, который проделает эту операцию на всех листах активной книги:

Sub All_Cells_In_All_Sheets_To_Value() Dim wsSh As Object For Each wsSh In Sheets wsSh.UsedRange.Value = wsSh.UsedRange.Value Next wsSh End Sub

Данный макрос необходимо вставить в стандартный модуль и выполнить (нажав F5 в редакторе VBA или непосредственно с листа: нажать Alt+F8-выбрать макрос All_Cells_In_All_Sheets_To_Value-Выполнить)
Так же в книге могут содержаться имена , которые тоже порой довольно неплохо прибавляют вес файлу. Посмотреть их можно, нажав сочетание клавиш Ctrl+F3на листе. Но может оказаться так, что имена будут скрытыми, и тогда Вы просто так их не увидите. Отобразить их можно при помощи следующего кода:

Sub All_Names_Visible() Dim objName As Object, wsSh As Object For Each objName In ActiveWorkbook.Names objName.Visible = True Next objName For Each wsSh In Sheets For Each objName In wsSh.Names objName.Visible = True Next objName Next wsSh End Sub

Данный код используется как и предыдущий. Он отображает все имена на листе и в книге. После выполнения макроса необходимо повторно нажать сочетание клавиш Ctrl+F3 на листе. Теперь Вы можете удалить ненужные Вам имена. Так же все имена можно сразу удалить при помощи следующего кода:

Sub Delete_All_Names() Dim objName As Object, wsSh As Object On Error Resume Next For Each objName In ActiveWorkbook.Names objName.Delete Next objName For Each wsSh In Sheets For Each objName In wsSh.Names objName.Delete Next objName Next wsSh End Sub

Только применяя данный код Вы должны быть уверены, что Вам действительно не нужны все имена в книге . Т.к. выполнив данный макрос Вы уже не сможете вернуть удаленные имена.

  • Проверьте, нет ли в книге скрытых листов , на которых может содержаться ненужная информация и с которыми можно проделать операции, описанные выше. Как их обнаружить можно узнать, прочитав эти статьи:
    Как сделать лист скрытым?
    Как сделать лист очень скрытым
  • После всех этих действий необходимо сохранить файл, чтобы изменения вступили в силу. Только после этого станет видно изменился размер файла или нет. Я бы советовал сохранять файл как копию, если не уверены, что удалили действительно ненужное.

    Статья помогла? Поделись ссылкой с друзьями!

    Код Excel для сжатия картинок

    Из 1С формируется и сохраняется в Excel отчет с картинками, размер адский получается — 170 метров.
    Заходим в Excel (говорю про 2003), выбираем картинку и жмем «формат рисунка», закладка «рисунок», жмем «Сжать. «, выбираем «ко всем рисункам документа», все подтверждаем и размер файла после сохранения падает до 12 метров.
    Вопрос, а как это сделать программно? Тот макрос, который генерируется записью макросов ничего подобного сам не делает:

    ActiveSheet.Shapes(«Picture 1»).Select
    Selection.ShapeRange.PictureFormat.Brightness = 0.5
    Selection.ShapeRange.PictureFormat.Contrast = 0.5
    Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
    Selection.ShapeRange.PictureFormat.CropLeft = 0#
    Selection.ShapeRange.PictureFormat.CropRight = 0#
    Selection.ShapeRange.PictureFormat.CropTop = 0#
    Selection.ShapeRange.PictureFormat.CropBottom = 0#

    То есть если такой макрос запустить еще раз на не сжатых рисунках и сохранить, файл не сжимается.
    Также прошу высказывать альтернативные решения.

    Импортировать и подогнать размер фотографии можно (см.пример), но вот что касается сжатия, то хоть эта возможность и появилась в Excel XP, но программно она недоступна (если не считать не очень надёжного способа c использованием SendKeys)

    1. 1С сохраняет (экспортирует свою мxl таблицу по умолчанию)
    в MS EXCEL в формате 05 MS EXCEL)
    — хорошо руками открываем файл и сохраняем в нужном нам формате.
    Смотрим размер файла — 5,6 мб. уже хорошо, но еще нето.
    2. В свойствах рисунка есть замечательная функция сжать.
    Сохраняем файл и что мы видим файл весит 0,8 мб. да это прорыв.
    Но это каждый раз ручками, лень.

    Понравилась статья? Поделить с друзьями:
  • Не редактирования формул в word 2007
  • Не сжимать рисунки в excel
  • Не рвутся связи в excel
  • Не рвется связь в excel
  • Не расширять межзнаковые интервалы в строке с разрывом word