De nuevo...GRAFICAS AUTOMATICAS EN EXCEL!!

[barman]

Noommmmmm, odio excel y toda su api de M.....a, es engorrosa y parece hecha para que tengas que pagar la cuota anual de M$, (lo cual no quiere decir que no la use, en fin).

Pero, lo que pides no lo he hecho nunca, lo maximo ha sido dibujar las graficas (2d) sobre un canvas y enviarlo como una bmp a excel.

[alt126]

La solucion es la siguiente:

Variant MiRango=MiHoja.OlePropertyGet("Range","A1:A5");
Variant MiColeccionGraficos=MiHoja.OlePropertyGet("ChartObjects");
MiColeccionGraficos.OleProcedure("Add",500,200,200,200);
Variant MiGrafico=MiColeccionGraficos.OlePropertyGet("Item",1);
Variant q = MiGrafico.OlePropertyGet("Chart");
Variant r = q.OlePropertyGet("SeriesCollection",(Variant)1);
r.OlePropertySet("XValues","='1'!L1C2:L2C2"); //Aqui toma los nombres!!!


GRACIAS A DAVID (GOKU)!!!!

Antonio