이미지 사용 샘플

스크린샷

소스 코드

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;

참고 항목