Dephi 写 Excel 图片代码参考

Delphi Excel 图片插入

最新推荐文章于 2025-07-24 09:38:35 发布

原创最新推荐文章于 2025-07-24 09:38:35 发布 · 845 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #工作 #string #null

Delphi专栏专栏收录该内容

18 篇文章

订阅专栏

本文介绍使用 Delphi 创建 Excel 应用程序的过程，并演示如何通过 Delphi 向 Excel 工作表中插入图片，设置图片的位置及尺寸。

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
;