Dephi 写 Excel 图片代码参考

最新推荐文章于 2021-04-10 08:17:50 发布

SeekMyself

最新推荐文章于 2021-04-10 08:17:50 发布

阅读量769

点赞数

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

本文链接：https://blog.csdn.net/SeekMyself/article/details/6191893

版权

Delphi专栏专栏收录该内容

18 篇文章 0 订阅

订阅专栏

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
;