delphi 操作Excel插入图片

最新推荐文章于 2025-05-07 14:22:35 发布

原创最新推荐文章于 2025-05-07 14:22:35 发布 · 1w 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#excel #delphi #测试 #function #string #c

vc/c++/sdk/delphi/C# 专栏收录该内容

141 篇文章

订阅专栏

本文介绍了一个使用Delphi向Excel文件中插入图片的方法。通过创建OLE对象与Excel进行交互，实现了打开指定的Excel文件，定位到指定工作表，并在指定区域插入一张位图。同时调整了图片的位置与大小以适配目标区域。

看如下的代码：

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经过测试发现出现提示对话框。

//测试结果：

//用友华表TCell的WorkbookReadonly属性为True时导出xls文件使用excel2007 or excel2003打开都出现提示对话框。假如为False时则不出现这个提示。

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;