Exemplo de uso de imagem
Este exemplo demonstra como adicionar imagens a um arquivo Excel
Captura de tela
Código-fonte
var book: IXLSWorkbook;
begin
//Criar pasta de trabalho objeto
book := TXLSWorkbook.Create;
//adicionar new planilha
with book.Sheets.Add do begin
//Change nome de planilha
Name := 'Sheet with image';
//select upper-left corner ("B3") para image
Cells[3,2].Select;
//adicionar picture em planilha
Shapes.AddPicture('image1.jpg');
end;
//Save pasta de trabalho
book.SaveAs('book.xls');
MessageDlg('book.xls is created', mtInformation, [mbOk], 0);
end;
Veja também