como exportar un tchart a excel??

[jact85]

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?) y no encuentro la forma de acerlo, si alguien me puede ayudar con esto se lo agradeceria.

[*Caro*]

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]

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]]

Empezado por jact85

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]

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

[*Caro*]

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]

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