{quote}{login=The_Prist}{date=24.10.2011 02:56}{thema=}{post}Макросом можно. При наличии примера данных с Вашей стороны и пояснением: куда надо все картинки вставлять? Не в одну и ту же ведь ячейку. Да и размер картинок явно разный будет...В общем желательно расширить пояснение.{/post}{/quote}  
спасибо за ответ. Да 100 фот и нужно в 100 ячеик загрузить (в каждую ячейку свое фото, т.е.  в этих 100 ячейках уже прописано название фото). у всех картинок размер 250х250

{quote}{login=Казанский}{date=24.10.2011 03:18}{thema=}{post}Пробуйте. Предполагается, что в столбце - имена файлов с расширением, без пути.  
Перед запуском надо выделить диапазон с именами.  
 
Sub InsertPictures()  
Const PATH = "C:\Pictures\" 'папка с картинками  
Dim c As Range  
For Each c In Selection  
   With ActiveSheet.Shapes.AddPicture(PATH & c, _  
       msoFalse, msoTrue, c(, 2).Left, c(, 2).Top, 100, 100)  
       .ScaleHeight 1, msoTrue, msoScaleFromTopLeft    'вернуть исходную высоту  
       .ScaleWidth 1, msoTrue, msoScaleFromTopLeft     'вернуть исходную ширину  
       c.RowHeight = .Height + 10                      'подстроить высоту строки  
   End With  
Next  
End Sub{/post}{/quote}  
а можно пожалуйста поподробней как это сделать? это я так понял макросом, на этом поподробней, если можно пож...