請大大解答，感激不盡

WorkSheet 取得應該知道吧！ 搜尋一下之前的討論。 插入圖片，就用 WorkSheet.Pictures.Insert('d:\我的大頭照.bmp');

我已經可以貼上了，但可否控制貼上的位置    MsExcelWorkSheet1.Pictures.Insert('D:\123.bmp').ShapeRange.IncrementLeft(380.25);    MsExcelWorkSheet1.Pictures.ShapeRange.IncrementTop(51.75);    我用以上的方法，可是圖不見了    

procedure TForm1.Button1Click(Sender: TObject);
var
  vXLS :Variant;
  WorkSheet :variant;
begin
  vXLS := CreateOleObject('Excel.Application');
  Try
   vXLS.DisplayAlerts :=false;       vXLS.WorKBooks.Close;
   vXLS.WorKBooks.open('C:\A.xls');
   WorkSheet := vXLS.WorKBooks[1].Sheets[1];
   WorkSheet.Cells[2,3].Select;
   WorkSheet.Pictures.Insert ('D:\My Pictures\A.JPG');
   vXLS.WorKBooks[1].Save;
   vXLS.WorKBooks[1].Close;
  Finally
    if Not Varisempty(vXLS) then vXLS.Quit;
  end;
end;

發表人 - wameng 於 2004/10/29 23:59:36