[peace773]

Проблема проста - с помощью delphi открывает openoffic и строим график, а затем хотим добавить на этот график еще одну линию. Вот в этом та и проблем.

пробовал с помощью uOpenOffice

Код:

     Ar2[0]:=RAddress(1,2,3,1,stroka2);
     OC.Sheets[0].LineCharts.Append('Test3',PRect(8000,1000,10000,5000),Ar3,false,true);
     OC.Sheets[0].LineCharts[0].DataRow[1].DataPoints.DataCaption:=ocdcValue; 
что дальше???????

пробовал с помощью OOoTools

 oTheFile := StarDesktop.loadComponentFromURL('file:///C:/1.ods', '_blank', 0, dummyArray);
 
   oAllSheets:= oTheFile.Sheets;
 
   oMySheet:= oAllSheets.getByIndex(2);  // first sheet of the spreadsheet
 
   oCharts := oMySheet.getCharts;
 
   oRectangle := oMySheet.Bridge_GetStruct('com.sun.star.awt.Rectangle');
   oRectangle.X      := 0; // X position
   oRectangle.Y      := 0; // Y position
   oRectangle.Width  := 30000;// width
   oRectangle.Height := 10000; // height
 
   oCellRangeAddress :=      oTheFile.Bridge_getStruct('com.sun.star.table.CellRangeAddress');
   oCellRangeAddress.Sheet       := 1; // First sheet of the file
   oCellRangeAddress.StartColumn := 0; // was 10
   oCellRangeAddress.StartRow    := 1;
   oCellRangeAddress.EndColumn   := 1;
   oCellRangeAddress.EndRow      := 275;
 
  oCharts.addNewByName('MyGraph',oRectangle,VarArrayOf(
       oCellRangeAddress),true, true);
  oChart := oCharts.getByName('MyGraph').EmbeddedObject;
  oChart.Diagram := oChart.createInstance('com.sun.star.chart.XYDiagram');

Админ: Пользуемся тегами для оформления кода!

что дальше???????