{quote}{login=Лузер™}{date=24.07.2009 08:58}{thema=}{post}Эксель - графический редактор?  
Вот если по тексту "EXCEL" заменить на "Adobe Photoshop", то где-то начинает появляться смысл.  
Или я один такой тупой?{/post}{/quote}  
 
А причем тут Adobe Photoshop, смею предположить, что ты не въехал в суть вопроса, он заключается в следующем.  
Excel 2003 жмет все картинки без разбора - ЭТО ХОРОШО, у меня стоит Excel 2007, не знаю почему но не сжимает картинки в вообще - ЭТО ПЛОХО.  
ВНИМАНИЕ ВОПРОС:  
Как по средствам VBA, т.е. макроса сжать все картинки рабочей книги Excel до 150 пикселов???

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

{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 делать должен сам но почему то не делает.

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

Я как-то задавался этим вопросом: http://www.programmersforum.ru/showthread.php?t=36102  
Ответа не нашёл до сих пор...  
 
Самый простой способ - запускать сжатие картинок вручную.

Нашел такую статейку: http://infostart.ru/public/19977/  
 
Не понял как работает, но судя по описанию применено автоматическое сжатие фото.

Нашел такой код:  
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, не кипятитесь. Перечитайте пост от The_Prist 10.09.2010, 13:24 и 10.09.2010, 13:58. Если нужно, задайте наводящие вопросы.

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

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

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

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

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

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