Thanks,
I found You set the data follows:
Chart1.Value(I+1,J) > Chart1.Value(I,J) and Chart1.IniValue(I+1,J) = Chart1.Value(I,J)
Then for each series I, Chartfx to draw new a box using the Chart1.IniValue(I,J) and Sum(Chart1.Value(0,J) : Chart1.Value(I,J) )