Как уменьшениь разрешения картинок в документах ворд — с помощью макроса VBA?

Question

[5fanru]

Собственно нашел только макросы для изменения размеров картинок но так и не понял как его переделать под изменение разрешения картинок.
В ворде есть функция сжатие рисунков (формат - сжать рисунки) Необходим макрос для сжатия рисунков для интернета и экрана (96 п/д)
Возможно у кого то есть пакетное решение будет вообще круто. Всем заранее спасибо.

Comments

[h8nor]

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

' Пример вставки рисунка
' Word
Selection.InlineShapes.AddPicture FileName:=Path, SaveWithDocument:=True
' Excel
ActiveSheet.Pictures.Insert(Path)