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.