Products   |   Download   |   Order   |   Forum   |   Contact us

NativeExcel suite v1.x

Images sample

Screenshot

Source code

var book: IXLSWorkbook;
begin
  //create workbook object
  book := TXLSWorkbook.Create;
  //Add new worksheet
  with book.Sheets.Add do begin
    //Change name of worksheet
    Name := 'Sheet with image';
    //select upper-left corner ("B3") for image
    Cells[3,2].Select;
    //Add picture into sheet
    Shapes.AddPicture('image1.jpg');
  end;
  //Save workbook
  book.SaveAs('book.xls');
  MessageDlg('book.xls is created', mtInformation, [mbOk], 0);
end;

See also