富翁们，excel里面的图片要怎么导出来成一个单独的图片文件？（50分，不够再加，急!） ( 积分: 50 )

富翁们，excel里面的图片要怎么导出来成一个单独的图片文件?（用delphi代码实现）

富翁们，excel里面的图片要怎么导出来成一个单独的图片文件?（用delphi代码实现）

如果excel里是以流的方式存放着图片的话

var
bmppic:tbitmap;
msmem:TmemoryStream;

msmem:=TmemoryStream.Create;
bmppic:=tbitmap.Create;
bmppic.Assign(image1.Picture.Graphic);
bmppic.SaveToStream(msmem);
msmem.Position:=0;
DataModule1.ADOquery8.Open;
DataModule1.ADOquery8.Insert;
tblobfield(DataModule1.ADOquery8.FieldByName('photo')).LoadFromStream(msmem);
msmem.Free;
bmppic.Free;