Dephi 写 Excel 图片代码参考

SeekMyself

于 2011-02-17 16:59:00 发布

阅读量819

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi专栏文章标签： excel 工作 string null

本文链接：https://blog.youkuaiyun.com/SeekMyself/article/details/6191893

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
;