Ver Mensaje Individual
  #4  
Antiguo 14-04-2005
Avatar de alt126
alt126 alt126 is offline
Miembro
 
Registrado: dic 2004
Posts: 171
Reputación: 20
alt126 Va por buen camino
Talking Solucionado!!!

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
Responder Con Cita