Сжатие картинок в Excel #679332

Всем привет! Мне необходимо сжать картинки в сохраняемом файле программно. Я даже уже научилась запускать макросы программно, но текста макроса нету. Так что я попыталась запустить стандартное сжатие через SendKeys. Но оно у меня очень плохо работает - во-первых, только с XLS, XLSX не сжимает, во-вторых, комп зависает на несколько минут, в-третьих, периодически тупо вылетает. Может кто знает, в чем может быть проблема? Excel = Новый COMОбъект("Excel.Application");