我正在尝试使用该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
通话中,我收到“类型不匹配”错误,并且没有进一步的信息可能是什么错误。
还是我必须使用另一种方法?