ник: osmor
'вставка
Sheet.Pictures.Insert("ПутьСИменемФАйла").Select
'изменение раpмера
Selection.ShapeRange.ScaleWidth 0.38, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.38, msoFalse, msoScaleFromTopLeft
'Изменение положения
Selection.ShapeRange.Left = ActiveSheet.Columns("d").Left
Selection.ShapeRange.Top = ActiveSheet.Rows(3).Top
Хранить можно в БД как двоичные данные, потом извлекать на диск, вставлять в Excel, удалять с диска