Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   como exportar un tchart a excel?? (https://www.clubdelphi.com/foros/showthread.php?t=59667)

jact85 03-09-2008 23:35:25

como exportar un tchart a excel??
 
hola :) no acostumbro a crear hilos ya que siempre me empeño primero en buscar si hay algo relacionado con los problemas que se me presentan pero esta ves se me a complicado encontrar informacion al respecto.

lo que pasa es que quiero exportar un tchart que tengo en mi form a excel (¿si es posible?:confused:) y no encuentro la forma de acerlo, si alguien me puede ayudar con esto se lo agradeceria.

Caro 03-09-2008 23:51:01

Hola jact85, lo que se me ocurre es que el Chart que tienes en tu form, lo guardes como imagen y despues exportas esa imagen a excel.

Para grabar como imagen.
Código Delphi [-]
 Chart.SaveToBitmapFile('Chart.bmp');

Saluditos

jact85 04-09-2008 00:16:03

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;

egostar 04-09-2008 00:20:46

Cita:

Empezado por jact85 (Mensaje 311671)
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.

Y cual es la ruta del archivo que estas importando?

Código Delphi [-]
chart1.SaveToBitmapFile('C:\directorio\chart.bmp');

Salud OS

jact85 04-09-2008 00:27:52

si eso es lo que me faltaba solo dar la ruta a donde lo guardaba y mandarlo llamar dela misma ruta:p
muchas gracias por el apoyo caro :)
que tengas buen dia;)

Caro 04-09-2008 00:29:41

Hola de nuevo, como te dice el amigo egostar, te falta poner la ruta cuando importas, al guardarlo lo pone en el directorio de tu aplicación así como esta, pero cuando lo exportas debes colocar la ruta completa.

Código Delphi [-]
 Path := ExtractFilePath(Application.ExeName)+'\Chart.Bmp';
 excel.Workbooks.add.worksheets[1].shapes.addpicture(Path, False, True, 6, 6, 666, 666);

Saluditos

jact85 04-09-2008 00:29:46

gracias a ti tambien egostar eso es lo que me faltaba
que tengas buen dia :)


La franja horaria es GMT +2. Ahora son las 01:32:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi