如题!
解决方案 »
- 我的IDE界面怎么变成这样了呢?
- 求:delphi里将中文字符串转化为快速码的函数?
- integer[4](错误)要转为4个字节的有什么好办法?
- 关于DLL窗体中动态连接数据库的问题!!在线等!!急急...
- 关于RadioButton的一个问题,大侠解决后另开4帖共500分奉上。
- 有关打印及打印机的API有哪些?
- 在线高分等待!怎样用SMTP 发带验证服务器的的邮件,用Indy Misc 却不知道怎么用!
- 经常需要传输 1M..20M 不定的文件包,用什么传?HTTP可以不?现在小WEB svr 很多的...
- 如何在mailto中,加入回车换行,我加了$0D$0A但是不可以,全部被滤为了空格
- 转行十年了,现在需要写个小程序:FORM1和Edit1隐藏方面的。
- 如何读USB硬盘的序列号?
- 我做的第一款免费软件上华军了,大家快来捧场
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;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExcelXP, OleServer, ExtDlgs;type
TForm1 = class(TForm)
ExcelApplication1: TExcelApplication;
ExcelWorkbook1: TExcelWorkbook;
ExcelWorksheet1: TExcelWorksheet;
Button1: TButton;
OpenPictureDialog1: TOpenPictureDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
aWorkBook : _Workbook;
aSheet : Variant;
FPicture:OleVariant;
begin
if OpenPictureDialog1.Execute then
begin
ExcelApplication1.Connect;
aWorkBook := ExcelApplication1.Workbooks.Add(EmptyParam, 0);
aSheet := aWorkBook.Sheets[1];
//aSheet.Range['f1'].Select;//这里是定位图片插入的位置
FPicture:=asheet.Pictures.Insert(OpenPictureDialog1.FileName);
FPicture.Left:=100;
FPicture.Top:=100;
ExcelApplication1.Visible[0] := True;
ExcelApplication1.Disconnect;
end;
end;end.以上两种 方法都可以实现