Delphi在Excel自动划出不连续区域的柱形图

Question

如：A1:A10作为横坐标；
C1:C10和F1:F10作为数据区间划柱形图,不知道改如何做，请高手指点。谢谢！

Answer 1

     Cell1:=sheet1.cells.item[1,1];              
     Cell2:=sheet1.cells.item[13,1];
      Cell3:=sheet1.cells.item[1,3];
      Cell4:=sheet1.cells.item[13,4];      Range1:=sheet1.Range[Cell1,Cell2];
      Range2:=sheet1.Range[Cell3,Cell4];            //
      sheet1.Range[Cell1,Cell2].Columns.Borders.colorIndex:=0;
      sheet1.ChartObjects.add(50,100,700, 300);   //      sheet1.ChartObjects[1].Activate;
//      sheet1.ChartObjects[1].Chart.charttype:= 51 ; //  51ΪÄãÒªµÄÖùÐÎ
      sheet1.ChartObjects[1].Chart.charttype:= 4 ;     sheet1.ChartObjects[1].Chart.seriescollection.ADD[Range2];只能设置一个range,如何设置多个不连续的range呢？