Ver Mensaje Individual
  #1  
Antiguo 26-05-2022
javicho_villa javicho_villa is offline
Miembro
 
Registrado: feb 2005
Ubicación: Lima - Perú
Posts: 101
Reputación: 20
javicho_villa Va por buen camino
Smile Grafico en Excel - XlCategory sin poder asignar valores

Buenos a todos,

Muchas gracias por leer, bueno estoy creando un archivo excel, donde pongo información de la producción de unas maquinas y al final hago un cuadro resumen comparativo de dos periodos:

Maquina Periodo 1 Periodo 2
1 4,224.12 2,669.81
2 10,267.93 8,791.24
3 7,989.37 6,083.18
4 2,268.37 3,669.24
5 2,734.21 3,283.73
6 5,203.92 6,722.69
7 4,081.17 7,641.57
8 6,284.54 5,197.12
9 9,787.20 9,109.93
10 8,702.81 7,691.56
11 11,365.36 8,622.36
12 4,740.55 5,532.03
13 2,810.41 4,588.06
14 5,296.63 1,486.53
15 4,218.49
16 33.40 1,577.11
18 8,508.02 8,630.13
19 8,481.74 4,799.82
20 2,953.37 7,133.57
21 1,613.36 7,820.05
22 3,193.48 3,680.56
24 2,782.22 1,164.76
25 2,365.45 654.37
26 3,393.02 8,256.08
27 1,880.16 2,923.73
28 394.30
29 7,349.16 5,621.17
30 11,410.69 16,869.71
31 4,039.11 7,234.77
32 6,799.77 2,667.22
35 736.33 2,622.85
36 5,467.27 4,269.34
37 10,039.28 10,859.71
38 1,365.01 1,392.41
39 1,330.55 555.08
40 9,115.99 7,750.98
41 10,530.95 10,518.25
42 7,068.27 7,353.52
43 10,311.04 8,989.96
45 41.48 7.17
46 73.96
47 42.20
48 8.44
49 24.03 2.30
52 8.45
53 17.40
54 5.87
55 2.85
57 197.83 69.37
58 47.11 6.97
59 107.89 53.90
60 85.51 64.39


Con estos valores creo un grafico, hasta ahi todo bien se ve bonito, pero el eje de abajo no lo puedo manipular y no respeta los valores de la tabla

Código Delphi [-]
    Sheet.ChartObjects.Add(10,Alto,800,350);
    ChartObj := Sheet.ChartObjects(1);
    ChartObj.Chart.ChartType := xlColumnClustered; //xlColumnStacked;

    Serie    := ChartObj.chart.seriescollection;

    Categoria := Chartobj.Chart.Axes(xlCategory);
    Chartobj.Chart.Axes(xlCategory, xlPrimary).HasTitle := true;
    Chartobj.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text := 'Maquinas';

    Chartobj.Chart.Axes(xlvalue, xlPrimary).HasTitle := true;
    Chartobj.Chart.Axes(xlvalue, xlPrimary).AxisTitle.Characters.Text := 'kilos';

   RangeY := Sheet.Range['B'+ FilaIniGraph.ToString+':'+'C'+IntToStr(Fila-3)];
   RangeX := Sheet.Range['A'+ IntToStr(FilaIniGraph+1)+':'+'A'+IntToStr(Fila-3)];

  Chartobj.chart.setsourcedata(RangeY);

Para el eje de abajo que es la xlcategory, no puedo asignarle RangoX, ya he probado de todo llevo varios dias con esto.

ahhh uso XE8 con SQL Server.

Les agradecería si saben algún truco, me puedan decir, de antemano muchas gracias por tomarse el tiempo de leer este hilo.

Saludos,

Javier Villa.
__________________
Javier Villa Sánchez
jvilla@andreaproducciones.com
Responder Con Cita