|
gracias caro por contestar pero fijate que aun no puedo porque al tratar de exportar con el siguiente codigo me da el error de que no encuestra la imagen.
procedure TForm15.Button1Click(Sender: TObject);
var excel: OleVariant;
begin
chart1.SaveToBitmapFile('chart.bmp');
excel := CreateOleObject('Excel.Application');
excel.Workbooks.add.worksheets[1].shapes.addpicture('chart.bmp', False, True, 6, 6, 666, 666);
excel.visible := True
end;
|