目前可做到向Excel单元格任意赋值，取数。
但不知怎样将image内容贴到Excel中。
不要用读图片文件的方法，不要用粘贴板的方法。

楼主说，吃饭不要张嘴。

uses comobj;
procedure TForm1.Button1Click(Sender: TObject);
var
excel : OleVariant;
workBook : OleVariant;
workSheet : OleVariant;
picture : OleVariant;
workRange : OleVariant;
begin
excel := CreateOleObject('excel.Application');
workBook := excel.workBooks.open('c:\1.xls');
workSheet := workBook.WorkSheets[1];
workSheet.Select;
workRange := workSheet.Range[workSheet.Cells.Item[6,1],workSheet.Cells.item[7,1]]; //目标位置
picture := workSheet.Pictures.Insert('c:\1.jpg'); //插入图片
picture.left := workRange.left + 1; //左
picture.top := workRange.top + 1; //高
picture.width := workRange.width - 2; //宽度
picture.height := workRange.height - 2; //高度
picture := Unassigned;
workBook.save; //保存
workBook.close;
excel.Quit;
excel := Unassigned;
end;

ActiveSheet.OLEObjects.Add(ClassType:="Paint.Picture", Link:=False, _
DisplayAsIcon:=False)
接下来就是对这个oleobject的操作。