新手请教：怎样在Excel中插入图片（50分）

Question

如题，望高手帮助解决，谢谢~

Answer 1

ActiveSheet.Pictures.Insert( 
        "D:\Documents and Settings\Administrator\My Documents\My Pictures\20026.gif")；

Answer 2

procedure TForm1.InsertPicClick(Sender: TObject);
var
  aSheet: variant;
  MyFormat : Word;
  AData : THandle;
  APalette:HPALETTE;
begin
  aSheet := ExcelApplication1.Worksheets.Item[1];
  //以文件插入
  aSheet.Pictures.Insert('C:\mypicture\001.bmp');
  //将Image1的图像插入
  Image1.picture.SaveToClipboardFormat(MyFormat,AData,APalette);
  ClipBoard.SetAsHandle(MyFormat,AData);
  aSheet.Paste;
end;

Answer 3

To：  dragonwzw(龙的传人) 报错说insert方法无效

Answer 4

aSheet.Pictures.Insert('C:\mypicture\001.bmp');不會錯的.
asheet是一個variant型的