使用影像範例

螢幕擷圖

原始碼

var book: IXLSWorkbook;
begin
  //建立 活頁簿 物件
  book := TXLSWorkbook.Create;
  //新增 new 工作表
  with book.Sheets.Add do begin
    //Change 名稱 的 工作表
    Name := 'Sheet with image';
    //select upper-left corner ("B3") 用於 image
    Cells[3,2].Select;
    //新增 picture 到 工作表
    Shapes.AddPicture('image1.jpg');
  end;
  //Save 活頁簿
  book.SaveAs('book.xls');
  MessageDlg('book.xls is created', mtInformation, [mbOk], 0);
end;

另請參閱