如何在Excel中插入图片? 如何在Excel中插入图片? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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; unit Unit1;interfaceuses 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.以上两种 方法都可以实现 delphi7乱套了,大虾救命~! 请教一个简单截图问题 十六进制的转换!? 我刚学习Delphi,请大家给点意见!! 关于EditMask使用中出现的问题 请问我用ADOquery的SetText事件问题 高分等待:哪位高手能指点一下有关 Delphi 读写并口的方法!资料 等待中... 一个很easy 的问题!在线等待,立即给分! 关于捕捉用户按键的问题 求援C/S的程序开发 请问delphi+access,access中字段类型有数字型和货币型,怎样让其加减乘除? 帮忙看看这段代码,关于dbchart
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.以上两种 方法都可以实现