|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.01.2009, 15:33 | #1 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Сжатие рисунков средствами VBA
Задача: сжать рисунки в офисном файле (в частности, в книге Excel) средствами VBA
(на панели Настройка изображения есть кнопочка Сжатие рисунков) Проблема: макрорекордер ничего не пишет (ни в Office 2003, ни в 2007-м) У объектов типа IPicture, IPictureDisp, Shape нет соотвествующих методов и свойств. (по крайней мере, найти мне не удалось) Поиск ничего не дал - на других форумах видел пару аналогичных вопросов - но без ответов... Скорее всего, функция оптимизации изображения находится в общей для всех офисных программ библиотеке (либо в exe-файле программы Microsoft Office Picture Manager) Знать, хотя бы, в какой библиотеке искать эту функцию... Должно же быть возможно выполнить это действие средствами VBA. SendKeys использовать не хочется... =============== добавлено позже ==================== У меня на сайте есть готовая программа для вставки изображений на лист Excel: http://excelvba.ru/programmes/PastePictures В последней версии в ней реализован алгоритм сжатия картинок. (макрос для сжатия изображений перед вставкой в Excel) Цитата:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 18.03.2013 в 04:13. |
|
17.01.2009, 19:12 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,238
|
попробовал. действительно, ничего не пишется.
поискал. в англоязычной интернете тема поднималась неоднократно (например, через google - Compress Pictures using VBA посмотрите ответы.. может, натолкнёт на какую-то мысль.. Просто, как я понял, в советах ничего толковее, чем SendKeys не предлагается ;-( |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Неразрывный пробел средствами VBA | tolikman | Microsoft Office Word | 5 | 23.03.2009 05:11 |
Условное форматирование средствами VBA | Acro | Microsoft Office Excel | 5 | 01.12.2008 16:40 |
Как средствами VBA получить доменное имя пользователя? | Прохожий | Microsoft Office Excel | 3 | 04.10.2008 18:28 |
Отображение рисунков | Witaliy | Компоненты Delphi | 0 | 26.05.2008 17:33 |
Сжатие строК! | prizrak1390 | Общие вопросы Delphi | 16 | 02.01.2008 17:15 |