十万火急:请教如何把jpg图片文件插入到Excel的一个表格中?

Question

如题

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InsertJpgToExcel(sExcelFile,sJpgFile:String);
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.InsertJpgToExcel(sExcelFile, sJpgFile: String);
var
  vExcel: Variant;
  vWorkbook:Variant;
begin
  vExcel:=CreateOleObject('Excel.Application' );
  vExcel.Visible:=True;
  vWorkBook:=vExcel.WorkBooks.Add;
  vWorkBook.ActiveSheet.Pictures.Insert(sJpgFile).Select;  vWorkBook.SaveAs(sExcelFile);
  vWorkBook.Close;
  vWorkBook:=Unassigned;
  vExcel.Quit;
  vExcel:=Unassigned;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  InsertJpgToExcel('c:\aa.xls','c:\Waterlilies.jpg');
end;end.

Answer 2

firstshine(黑里透红) 是正解

Answer 3

EXCEL和WORD都是支持宏录制的```你来跟踪查询一下在EXCEL内实现的代码``虽然是VB的```也好理解的，以后遇到对它们的操作都可以这样去试试！