{quote}{login=EducatedFool}{date=14.09.2010 05:52}{thema=}{post}Sub test()  
   imagePath = "D:\Карта .jpg"  
   ActiveSheet.Pictures.Insert imagePath  
End Sub{/post}{/quote}  
EducatedFool, спасибо, но такой вариант мне не подошел. 2010 офис воспринимает как "связать с файлом", т.е. саму картинку не вставляет в файл.  
 
Нашел такой вариант, работает:  
Sub w()  
 
Const P = 26.458  
Dim fn As String  
Dim x As IPictureDisp  
fn = "C:\1.png"  
Set x = LoadPicture(fn)  
a = CInt(x.Width / P)  
b = CInt(x.Height / P)  
ActiveWorkbook.ActiveSheet.Shapes.AddPicture (fn, False, True, h, v, a, b)  
 
End Sub