Var Book: IXLSWorkbook; fn: string; begin fn:=ExtractFilePath(Application.ExeName)+ 'No052222.xlsx'; book := TXLSWorkbook.Create; with book.Sheets.Add do begin Name := 'Sheet with image'; Cells[3,2].Select; Shapes.AddPicture('image111.jpg'); end; Book.SaveAs(fn, xlOpenXMLWorkbook); end;
----------------------------------------------
-