forループを使用してExcelのチャートのシリーズを作成する

Question

グラフ/グラフを使用して新しいExcelブックを作成するプログラムを作成しています。このグラフには、複数のグラフタイプがある複数のシリーズ（数が異なる）がありますが、forループを使用してシリーズを作成するのは苦労しています。ここで私はこれまで持っているものです。

 Dim Dataseries As Excel.Series = CType(chartPage.SeriesCollection(), Excel.Series) 
     For index As Integer = 0 To GlobVars.filenameArr.Length 
      Dataseries(index).Name = GlobVars.filenameArr(index) 
     Next index 

私はこのコードを実行しようとすると、私はエラーを取得する：

Excel.Series cannot be indexed because it has no default property

Answer 1

私はあなたがこの

Dim ChartObject = CType(excelWorkSheet.ChartObjects("Diagramm 1"), ChartObject) 
Dim Chart = calibrationChartObject.Chart  
Dim seriesCollection = CType(calibrationChart.SeriesCollection(), SeriesCollection) 

' loop to create new series 
For each fileName in GlobVars.filenameArr 
    Dim testSerie As Excel.Series = seriesCollection.NewSeries() 

    'Add values and customize the serie 
    With testSerie 
     .Values = New Double() {someValue, someValue} 
     .XValues = New Double() {someValue, someValue} 
     .Border.LineStyle = XlLineStyle.xlDot 
     .Border.Color = Color.Red 
     .MarkerStyle = XlMarkerStyle.xlMarkerStyleNone 
     .Name = fileName 
    End With 
Next 

ドン」のようなものが必要だと思いますExcelが終了しなかった場合、Excelのオブジェクトへのすべての参照を解放することを忘れないでください。今すぐテストすることはできませんが、うまくいくはずです。