Программное сжатие изображения

[DBEER]

макрос VBA вставляет картинку(растровое изображение), формует его (размер, положение). Пользователь затем при необходимости обрезает его. Надо бы еще и программно удалить обрезанное и сжать до нужного разрешения ("Для печати", к примеру).
Пробовал руками через запись макроса - не пишет ничего, пся крев.
И эти люди налагают на нас санкции...
Лучше бы руки на себя наложили..

[DBEER]

нашел вот это пока:
http://programmersforum.ru/showthread.php?t=36102

[DBEER]

и вот это:

The best you can do is to display the dialog box - by triggering the built-in command:

Make sure a valid picture is selected, then app.CommandBars.FindControl(Id:=638 2).Execute

You can try putting a Sendkeys in front of the above line, with an {Enter} at the end of the keystrokes to confirm the dialog box. But that's the best you can do.

[DBEER]

..причем (молодцы!!) советуют применить SendKey в окошко, открытое МОДАЛЬНО.
Посылка туда не проходит, пока окно не закроется.

    Application.CommandBars.FindControl(ID:=6382).Execute
    SendKeys "%о%и{ENTER}", False