看如下的代碼：

function ExportExcelForBmp(sfilepath : string) : Boolean;

var
??? excel : OleVariant;
??? workBook : OleVariant;
??? workSheet : OleVariant;
??? picture : OleVariant;
??? workRange : OleVariant;
??? i:integer;
begin
??? result := true;

??? try
??????? excel := CreateOleObject('excel.Application');

??????? workBook := excel.workBooks.open('c:\1.xls'); //打開xls文件 在excel2007 2003經(jīng)過測試發(fā)現(xiàn)出現(xiàn)提示對話框。

//測試結(jié)果：

//用友華表TCell的WorkbookReadonly屬性為True時導(dǎo)出xls文件使用excel2007 or excel2003打開都出現(xiàn)提示對話框。假如為False時則不出現(xiàn)這個提示。

??????? workSheet := workBook.WorkSheets[1];
??????? workSheet.Select;

??????? workRange := workSheet.Range[workSheet.Cells.Item[6,1],workSheet.Cells.item[7,1]]; //目標位置

??????? picture := workSheet.Pictures.Insert('c:\1.bmp'); //插入圖片
??????? picture.left := workRange.left + 1; //左
??????? picture.top := workRange.top + 1; //高
??????? picture.width := workRange.width - 2; //寬度
??????? picture.height := workRange.height - 2; //高度
??????? picture := Unassigned;

??????? workBook.save; //保存
??? except
??????? result := false;
??? end;
??? workBook.close;
??? excel.Quit;
??? excel := Unassigned;
end;

總結(jié)

以上是生活随笔為你收集整理的delphi 操作Excel插入图片的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。