Dephi 写 Excel 图片代码参考

原创于 2011-02-17 16:59:00 发布 · 819 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #工作 #string #null

Delphi专栏专栏收录该内容

18 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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
;