求教：怎么用delphi编程实现向excel插入一张图片？并控制其位置。

Question

大家帮忙啊？

Answer 1

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;

Answer 2

用delphi中自带的servers怎么实现呢？

Answer 3

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.
我这里有源码，楼主如果要，可以把Email留下，待我有空时发给你。

Answer 4

那能否直接把DBIMAGE中的图片导到EXCEL的一个指定位置上呢？
不是从某个文件夹下打开。