如何通过程序控制:在EXCEL文件的指定位置中插入图片?(30分)

如何通过程序控制:在EXCEL文件的指定位置中插入图片?

快来帮我啊！

在需要的地方設置一個標記,用查找替代的方法就可以吧!

具体的如何操作?
有示例代码吗?

我用EXCEL的录制宏可以得到如下代码:
ActiveSheet.Pictures.Insert("C:/WINDOWS/1STBOOT.BMP").Select
Selection.ShapeRange.IncrementLeft 92.25
Selection.ShapeRange.IncrementTop 57.75
可是在DELPHI中我没找到Pictures.Insert方法,请问是不是有其他的方法?

以下是我的做法,测试通过的,给分吧
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
Var FExcel :OleVariant;
//excel应用程序
FWorkBook :OleVariant;
//工作表
FWorksheet:OleVariant;
//工作薄
FPicture:OleVariant;
TmpStr:String;
begin
FExcel:= CreateoleObject('excel.Application');
FWorkBook:=FExcel.WorkBooks.Add;
//新的工作表
FWorksheet:=FWorkBook.Worksheets[1];
FWorksheet.Select;
//插入图象并设置位置与大小
tmpstr:='f:/1.jpg';
FPicture:=FWorksheet.Pictures.Insert(tmpstr);
FPicture.Left:=10;
FPicture.Top:=10;
FPicture.width:=200;
FPicture.height:=200;
FPicture:=null;
FExcel.visible:=true;
end;

我运行是提示:
类 Pictures 的 Insert 方法无效!
不知是何缘故!请指点~

你的office版本是多少?

问题解决了！谢谢你，加分~