[alt126]

Hace poco escribi un mensaje sobre esto, pero ahora que he vuelto sobre el tema, me gustaria que alguien me ayudara, POR FAVOR!!!

Para crear una grafica de manera automatica en excel desde builder hago esto (codigo cedido por OSKR):

//RANGO DE CELDAS PARA LA GRAFICA
String origen,destino; //Comienzo y destino de las celdas de datos.
origen="C";
destino="C";
origen=origen + IntToStr(14);
destino=destino + IntToStr(14 + num_visitas - 1);
origen = origen + ":" + destino;
Variant MiRango=MiHoja.OlePropertyGet("Range",origen);
//GRAFICA
Variant MiColeccionGraficos=MiHoja.OlePropertyGet("ChartObjects");
MiColeccionGraficos.OleProcedure("Add",400,20,200,200);
Variant MiGrafico=MiColeccionGraficos.OlePropertyGet("Item",1);
AnsiString TituloPrincipal="Palomas";
AnsiString TituloEjeY="Eje Y";
AnsiString TituloEjeX="Eje X";
//1 con leyenda
//0 sin leyenda
int Leyenda=1;
//The number of rows or columns containing series labels
int SeriesLabels=0;
//The number of rows or columns containing category labels
int CategoryLabels=0;
//7-> barras con valores
//6-> barras sin valores
//5-> barras complementarias
int ContruccionGrafica=6;
//2 por barras horizontales
//3 por barras verticales
//5 tarta
//11 por barras 3d
//13 por tarta 3d
int TipoGrafico=5;
MiGrafico.OlePropertyGet("Chart").OleProcedure("ChartWizard",MiRango,TipoGrafico,ContruccionGrafica, 2,CategoryLabels,
SeriesLabels,Leyenda,TituloPrincipal.c_str(),TituloEjeX.c_str(),TituloEjeY.c_str());
Excel=Unassigned;


El problema es que no se como asignar nombres a las series que muestro, es decir, me aparece la grafica, con los datos, pero cada serie aparece con nombres 1,2,3...

GRACIAS,

Antonio