OpenOffice Automation Delphi как создать разбросанную диаграмму из несмежных столбцов

Может ли кто-нибудь помочь мне, как создать диаграмму XY из несмежных столбцов? Я хочу сделать это в Delphi, используя интерфейс OOoTools.pas. Это рабочий код, в котором я могу выбирать только соседние столбцы: Пользователь The_Fox очень помог мне с некоторыми проблемами, которые у меня были, спасибо за это.

procedure TForm1.ProcessNewChart(aFilename: String);
Var
                  oTheFile, oAllSheets, oMySheet, oCharts, oChart,
                  oCellRangeAddress, oRectangle, oSize, oChartDoc,
                  oTitleTextShape, oDiagram, oMySymbolType : Variant;
begin
ConnectOpenOffice;

   (* Get a handle to the file *)
   oTheFile := OpenSheet(aFilename, True);
   (* Get a handle to the sheets of the Calc file *)
   oAllSheets:= oTheFile.Sheets;

   (* Select the first sheet to work with *)
   oMySheet:= oAllSheets.getByIndex(0);  // first sheet of the spreadsheet

   (* Create a handle to the the charts object *)
   oCharts := oMySheet.getCharts;

   (* Specify the position and dimensions of the to be created chart *)
   oRectangle := oMySheet.Bridge_GetStruct('com.sun.star.awt.Rectangle');
   oRectangle.X      := 8000; // X position
   oRectangle.Y      := 1000; // Y position
   oRectangle.Width  := 15000;// width
   oRectangle.Height := 5000; // height

   (* Specify the Cell ranges where to create a chart from
   The first column specifies the X axis
   The rest specifies the Y values
   The first row specifies the labels of the series
   *)
   oCellRangeAddress :=      oTheFile.Bridge_getStruct('com.sun.star.table.CellRangeAddress');
   oCellRangeAddress.Sheet       := 0; // First sheet of the file
   oCellRangeAddress.StartColumn := 1; // was 10
   oCellRangeAddress.StartRow    := 6;
   oCellRangeAddress.EndColumn   := 10;
   oCellRangeAddress.EndRow      := 71;

  (* Create the Chart *)
  oCharts.addNewByName('MyGraph',oRectangle,VarArrayOf(oCellRangeAddress),True, True);

  (* Now place the chart on the sheet *)
  oChart := oCharts.getByName('MyGraph').EmbeddedObject;

  (* Set The chart type (scatter) *)
  oChart.Diagram := oChart.createInstance('com.sun.star.chart.XYDiagram');

  (* Turn the symbol of the data points off *)
  oChart.Diagram.SymbolType := -3;
  (* Set the spline method 0=none, 1 is cubic and 2 = spline B *)
  oChart.Diagram.SplineType := 0;

  (* Set the color of the font *)
  oChart.Diagram.wall.FillColor := RGB(150,150,150);

  (*Set the maximym Yaxis value*)
  oChart.Diagram.YAxis.Max := 40000;

  (* Set a Y axis title *)
  oChart.Diagram.HasYAxisTitle := True;
  oChart.Diagram.YAxisTitle.string := 'Values';

  (* Set an X axis title *)
  oChart.Diagram.HasXAxisTitle := True;
  oChart.Diagram.XAxisTitle.string := 'Logged Points';

  (* The first row contains the names of the columns *)
  oChart.DataSourceLabelsInFirstColumn := False;
  oChart.DataSourceLabelsInFirstRow := True;

  (* Rotate the X axis values *)
  oChart.Diagram.XAxis.TextRotation := 9000;// '90 degrés

  (* Set the character height of the labels *)
  oChart.Diagram.YAxis.CharHeight := 8;
  oChart.Diagram.XAxis.CharHeight := 8;

  (* Set The main title and color of the graph *)
  oChart.HasMainTitle := True;
  oChart.Title.String := 'VPC logged data visualization';
  oChart.Title.CharColor := RGB(200,0,0);

 DisconnectOpenOffice;
end;