关于delphi控制excel的问题！！！！在线给分 (50分)

Try
Excel:=CreateOleObject('Excel.Application');
Excel.Visible :=false;
Excel.Workbooks.Add;
Except
Excel.DiaplayAlert:=false;
Excel.quit;
Exit;
End;
Excel.Workbooks[1].WorkSheets[1].Name := 'Sheet1';
Sheet:=Excel.Workbooks[1].WorkSheets[1];
Excel.ActiveSheet.Range['A1:M6'].Select;
Excel.ActiveSheet.Range['A1:M6'].Merge ;
Sheet.Pictures.Insert ('D:/HD.jpg');

Excel.ActiveWorkbook.SaveAs('D:/111.xls');
Excel.Quit;

这是我控制excel插入一张图片的代码，而插入的图片总在最左边和最上边，
现在问题是如何才能将其图片移动到一个我适当的位置呢，比如我要将图片向右移动
到D1附近，具体代码该怎么写呢???
请大家帮帮忙

关注，我也想解决类似的问题，是关于word的,这应该有相通之处吧！

在EXCEL中在移动图片到指定位置时录制宏,再该宏转到DELPHI中

你在excel中用錄制的方式來做
開起錄制宏,然後在上面放一張圖
再把它往左或往右移
再停止錄制,看里面的vba程式
再在程式中把vba的代碼改成自已程式的語言

这个我早知道，就是不行才来问你们，不信你们试试看，我用的是ole创建的，
如果你们行的话，把代码贴出来我看看

帮你up

procedure TForm1.Button1Click(Sender: TObject);
VAR WORKBOOK,RANG,MSEXCEL:VARIANT ;
begin
TRY
MSEXCEL:=CREATEOLEOBJECT('EXCEL.APPLICATION');
WORKBOOK:=MSEXCEL.WORKBOOKS.ADD;
Except
MSEXCEL.quit;
MSEXCEL:=0;
END;
TRY
MSEXCEL.WORKSHEETS['SHEET1'].Pictures.Insert('C:/Documents and Settings/Administrator/My Documents/My Pictures/gzl/100168_2_small.jpg').Select;
MSEXCEL.WORKSHEETS['SHEET1'].Pictures.left:=10.5 ;
MSEXCEL.WORKSHEETS['SHEET1'].Pictures.top:=120;
WORKBOOK.SaveAs('c:/pic.xls');
MSEXCEL.quit;
MSEXCEL:=0;
Except
MSEXCEL.quit;
MSEXCEL:=0;
END;
end;

接受答案了.