怎样向 excel 工作表中插入图片？ ( 积分: 10 )

有一张 excel 体检表，我可以给体检表的方格插入相应的文字内容，但体检表中还有一张图片，怎样插进去，还要能控制大小。

有一张 excel 体检表，我可以给体检表的方格插入相应的文字内容，但体检表中还有一张图片，怎样插进去，还要能控制大小。

KeyLife富翁笔记
作者?: hots
标题?: 数据库图片插入到excel中
关键字: blob,excel，流
分类?: 成功心得
密级?: 公开
(评分: , 回复: 0, 阅读: 57) »»
原理，我现在还没有找到更好的方法，不过次方法经过验证，是绝对可行的，并且应用在：韩国浦铁项目中的员工档案导出功能中。
因为用到了粘贴板，所以uses：clipbrd
var
MyFormat:Word;
AData:THandle; //临时句柄变量。
APalette:HPALETTE; //临时变量。
Stream1:TMemoryStream;//TBlobStream
xx:tbitmap;
Stream1:= TMemoryStream.Create;
TBlobField(query.FieldByName('存储图片的字段')).SaveToStream(Stream1);
Stream1.Position :=0;
xx:=tbitmap.Create ;
xx.LoadFromStream(Stream1);
xx.SaveToClipboardFormat(MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat, AData);
myworksheet1.Range['g3','h7'].select;//myworksheet1是当前活动的sheet页
myworksheet1.Paste;

楼上这位能否给出从 Excel中读取单元格的代码？谢谢！