FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
BD a gráfico Excel
Me gustaría saber si existe algún componente gratuito o alguna forma de generar un grafico en excel desde delphi. Actualmente exporto datasets a excel con el componente scExcelExport pero ahora me falta generar un gráfico respecto a las series que exporto.
Muchas Gracias de antemano.... Saludos, Tony P.D. Trabajo con Delphi 5 + ADO + MySQL 5 |
#2
|
|||
|
|||
Generar Gráficos en Excel con Delphi
Para generar los gráficos en Excel solo debes hacer lo siguiente,
recuerda colocar en el Uses del formulario "ComObj" procedure TFRMExcel.BitBtn1Click(Sender: TObject); var XLapp, xlw, Rango : Variant; lineaexcel, colexcel : Integer; begin XLapp := CreateOleObject('Excel.application'); XLapp.visible := true; xlw := xlapp.workbooks.add; xlApp.workbooks[1].worksheets[1].cells(1,1) := 'Tipo'; xlApp.workbooks[1].worksheets[1].cells(2,1) := 'A'; xlApp.workbooks[1].worksheets[1].cells(3,1) := 'B'; xlApp.workbooks[1].worksheets[1].cells(4,1) := 'C'; xlApp.workbooks[1].worksheets[1].cells(1,2) := 'Promedio'; xlApp.workbooks[1].worksheets[1].cells(2,2) := 96; xlApp.workbooks[1].worksheets[1].cells(3,2) := 70; xlApp.workbooks[1].worksheets[1].cells(4,2) := 45; // Generar Grafico Rango := xlApp.workbooks[1].worksheets[1].Range['A1:B4']; xlApp.Charts.Add; xlApp.ActiveChart.ChartType := 54; xlApp.ActiveChart.SetSourceData (Rango, 2); xlApp.ActiveChart.Location(2, 'Hoja1'); xlApp.ActiveChart.HasTitle := True; xlApp.ActiveChart.ChartTitle.Characters.Text := 'Promedio'; xlApp.ActiveChart.Axes(1).HasTitle := False; xlApp.ActiveChart.Axes(3).HasTitle := False; xlApp.ActiveChart.Axes(2).HasTitle := False; xlw.close; xlapp.quit; end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Exportar el grafico a excel | elorza | Gráficos | 1 | 20-01-2015 18:58:46 |
excel a delphi, como mostrar columnas de excel | Vyckso | Servers | 2 | 13-08-2007 12:38:08 |
Como mando a llamar un grafico de excel? | Elite237 | Gráficos | 1 | 28-07-2007 13:51:30 |
Problema al actualizar Excel 2000 a Excel XP | victork_py | Servers | 1 | 06-08-2004 19:20:41 |
Cuadricular un Grafico | Jessica666 | Gráficos | 1 | 14-05-2004 20:13:12 |
|