Господа,    
пытаюсь решить тот же вопрос что и в http://www.planetaexcel.ru/forum.php?thread_id=8786.  
Нашел в интернете макрос позволяющий это сделать через sendkeys.  
 
Sub Compress_PIX()  
 
Dim octl As CommandBarControl  
 
With Selection  
   Set octl = Application.CommandBars.FindControl(ID:=6382)  
   octl.Execute  
End With  
 
End Sub  
 
Данный макрос вызывает меню "Сжатие рисунков" (Формат рисунка, вкладка Рисунок, нопка сжать)  
 
 
Вопрос как узнать номера других Менюшек.  
 
Большое спасибо.