delphi中如何把一个图片插入到Excel中？

Question

有劳各位给小弟介绍一个方法，就是在delphi中怎样把一副图片插入到Excel中，
大家帮个忙吧。

Answer 1

worksheet 是一个Variant变量，指定一个Sheet

Answer 2

请问这位大哥，能不能选择一个Cell来插入图片呢?

Answer 3

var
  aWorkBook : _Workbook;
  aSheet : Variant;
begin
  if OpenPictureDialog1.Execute then
  begin
    ExcelApplication1.Connect;
    aWorkBook := ExcelApplication1.Workbooks.Add(EmptyParam, 0);
    aSheet := aWorkBook.Sheets[1];
    aSheet.Range['f1'].Select;//这里是定位图片插入的位置
    asheet.Pictures.Insert(OpenPictureDialog1.FileName);
    ExcelApplication1.Visible[0] := True;
    ExcelApplication1.Disconnect;
  end;
end;

Answer 4

WWWWA(aaaa) 的代码可以实现