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에서 개체를 참조하도록 모든 참조를 해제해야합니다. 지금 테스트 할 수는 없지만 제대로 작동해야한다고 생각합니다.