excel - Delphi 6 - 从 Delphi 应用程序创建 Excel 图表 - 数据和图表在同一页面上

Question

我需要从 delphi 程序在 Excel 页面中创建 Excel 图表。

我在到达线路时收到“未找到成员”错误。

ch1.Chart.SeriesCollection.Item[0].Values := Sheets.Item['Delphi Data'].Range['E5:E15'];

你能帮我解决一下吗

下面给出的是使用的代码。

procedure TForm1.ChartData;
var
     ARange,Sheets,ch1 : Variant; 
     SSeries : Series; 
     num : integer; 
     ChartAxis : Axis; 
     lcid :  Cardinal; 
begin 
  ch1 := XLApp.ActiveWorkBook.Sheets[1].ChartObjects.Add ( 500,100,400,200 ); // creates a new chart in the specified 
  Sheets := XLApp.Sheets; 
  ch1.Chart.ChartWizard ( 
                         Sheets.Item['Delphi Data'].Range['D5:D15'],   // 1  Source 
                         xlBarStacked, //  2  The chart type. 
                         8,            //  3  Format  
                         2,            //  4  PlotBy  
                         8,            //  5  CategoryLabels  
                         3,            //  6  SeriesLabels  
                         True,        //  7  HasLegend - 'true' to include a legend. 
                         'Sijos Report',  // 8  Title - The Chart control title text. 
                         'Y Legend',      // 9  CategoryTitle - The category axis title text. 
                         'X Legend',      // 10  ValueTitle - The value axis title text 
                         2                // 11  ExtraTitle - The series axis title for 3-D charts or the second value axis title for 2-D charts. 
                       ); 
ch1.Chart.SetSourceData(Sheets.Item['Delphi Data'].Range['D5:D15'],xlColumns); 

ch1.Chart.SeriesCollection.Item[0].Values := Sheets.Item['Delphi Data'].Range['E5:E15']; 
ch1.Chart.SeriesCollection.Item[0].XValues := Sheets.Item['Delphi Data'].Range['F5:F15'];  
End;

Answer 1

我认为您需要 ch1.Chart.SeriesCollection(1) 而不是 ch1.Chart.SeriesCollection.Item[0]，因为 Excel 使用基于 1 的索引。

我也无法获取您的代码，在访问系列对象时完全使用后期绑定(bind) COM 来工作。但如果您改用早期绑定(bind)的 COM，那就没问题了。例如，您需要将 Excel2000 添加到您的 use 子句中。

var
  S: Series;
....
S := IUnknown(ch1.Chart.SeriesCollection(1)) as Series;
S.Values := Sheets.Item['Delphi Data'].Range['E5:E15']; 
S.XValues := Sheets.Item['Delphi Data'].Range['F5:F15'];  

如果我是你，我会将整个代码切换到早期绑定(bind)。

我认为你的代码是基于这个Delphi 3 example from Charlie Calvert 。我无法让它在我的 Delphi 6 上运行。也许 Delphi 改变了。也许 Excel 发生了变化。不管怎样，让它对我有用的是切换到早期绑定(bind)的 COM。