Ver Mensaje Individual
  #2  
Antiguo 20-04-2006
gilberto_1126 gilberto_1126 is offline
Miembro
 
Registrado: jun 2004
Posts: 74
Reputación: 23
gilberto_1126 Va por buen camino
Exclamation

Estoy utilizando un componente ExcelApplication, ExcelChart y un ExcelWorkSheet de la paleta servers.

tengo el siguiente codigo

ExcelApplication1.Sheets.Add(emptyparam, emptyparam, emptyparam,emptyparam,0);
ExcelWorkSheet1.ConnectTo(ExcelApplication1.Sheets[1] AS _WorkSheet);
ExcelWorkSheet1.Name := 'Graficas';
ExcelApplication1.Charts.Add(emptyparam,emptyparam,emptyparam, emptyparam,0);
ExcelChart1.ConnectTo(ExcelApplication1.Charts[1] AS _Chart);
ExcelChart1.ChartType:=73;
ExcelChart1.HasLegend[1]:=false;
ExcelChart1.Location(1,'Prueba');
ExcelChart1.HasTitle[1]:=true;
ExcelChart1.PlotArea[1].Interior.Color:=clRed;
ExcelChart1.ChartTitle[1].Text:='Prueba';

Hasta aqui me quede, no se que mas sigue, ademas me marca un error en

ExcelChart1.HasTitle[1]:=true;
ExcelChart1.PlotArea[1].Interior.Color:=clRed;
ExcelChart1.ChartTitle[1].Text:='Prueba';

Por favor necesito ayuda
Responder Con Cita