Question

您好，有人可以帮我解决以下问题，我尝试使用OOoTools.pas界面创建一个OpenOffice calc图表。代码是这样的：

/////////////////////////////// CODE //////////////////////////////////

procedure TForm1.ProcessChart(aFilename : String);
Var
                  oTheFile, oAllSheets, oMySheet, oCharts,
                  oCellRangeAddress, oRectangle, oSize : Variant;
begin
 ConnectOpenOffice;
   oTheFile := OpenSheet(aFilename, True);
   oAllSheets:= oTheFile.Sheets;

   oMySheet:= oAllSheets.getByIndex(0);  // first sheet of the spreadsheet

   oCharts := oMySheet.getCharts;

   oCellRangeAddress := oTheFile.Bridge_getStruct('com.sun.star.table.CellRangeAddress');
   oCellRangeAddress.Sheet       := 0;// '1ere feuille du graphique
   oCellRangeAddress.StartColumn := 0;// 'Ligne 1
   oCellRangeAddress.StartRow    := 0;// 'Colonne A
   oCellRangeAddress.EndColumn   := 3;// 'Colonne D
   oCellRangeAddress.EndRow      := 29;// 'Ligne 30

   oRectangle := oTheFile.Bridge_GetStruct('com.sun.star.awt.Rectangle');
   oRectangle := oMySheet.Bridge_GetStruct('com.sun.star.awt.Rectangle');
   oRectangle.X      := 8000;
   oRectangle.Y      := 1000;
   oRectangle.Width  := 5000;
   oRectangle.Height := 5000;

   // Type Error Mismatch error on this call:       
   oCharts.addNewByName('LogData',
                        oRectangle,
                        oCellRangeAddress,
                        true,
                        true);

 DisconnectOpenOffice;
End;

/////////////////////////////// END CODE //////////////////////////////////

在oCharts.addNewByName调用中，我收到“类型不匹配”错误，并且没有进一步的信息可能出错。或者我必须使用其他方法吗？非常感谢你的帮助。

Answer 1

addNewByName的aRanges参数需要com.sun.star.table.CellRangeAddress的序列，并且您没有给出一系列CellRangeAddress结构，而是结构本身。

试试这个：

oCharts.addNewByName('LogData',
                        oRectangle,
                        VarArrayOf(oCellRangeAddress),
                        true,
                        true);

OpenOffice Automation使用Delphi在calc中创建图表

1 个答案: