2012-06-28 56 views
2

但是我想設置SeriesCollection.Values屬性,我得到錯誤「無法設置Series類的Values屬性」。我曾嘗試Google尋求可能的解決方案,但都沒有奏效。不能在VB.Net中設置SeriesCollection.Values屬性

我已經使用xlNewApp.Sheets(「Synchronized Data」)。Range(「H2:H117」)來代替「'Synchronized Data'!$ H $ 2:$ H $ 117」,但這也不起作用。

我已經取得了一些成功,在打字陣列(例如「= {58,77,65106}」)的實際數據我想繪製的,但我想避免通過我的所有數據,以創建循環必要的數組。

對此問題的任何幫助將不勝感激。

的代碼看起來是這樣的:

xlSheetCount = xlNewWorkbook.Worksheets.Count 
    Dim chart As Excel.Chart = xlNewApp.ActiveWorkbook.Charts.Add(After:=xlNewWorkbook.Worksheets(xlSheetCount)) 
    xlNewWorkbook.ActiveChart.Name = "Chart_Efficiencies" 

    xlNewWorkbook.Sheets(xlSheetCount).name = "Chart_Efficiencies" 
    xlNewApp.Charts("Chart_Efficiencies").Select() 
    xlNewApp.ActiveChart.ChartType = Excel.XlChartType.xlXYScatter 

    xlNewWorkbook.ActiveChart.SeriesCollection.NewSeries() 
    With xlNewWorkbook.ActiveChart.SeriesCollection(1) 
     .ChartType = Excel.XlChartType.xlXYScatter 
     .Name = "HgT Removal Efficiency" 
     .XValues = "'Synchronized Data'!$A$2:$A$117" 
     .Values = "'Synchronized Data'!$H$2:$H$117" <----------- Problem Here 
    End With 

UPDATE: 代碼中並沒有錯誤,如果該行是:

xlNewApp.Sheets("Synchronized Data").Range("H2:H15").Value 

當H15成爲H16,我再次得到錯誤

回答

1

如果您更換這些生產線,是否可以正常工作:

.XValues = "'Synchronized Data'!$A$2:$A$117" 
    .Values = "'Synchronized Data'!$H$2:$H$117" <----------- Problem Here 

有了這個:

.XValues = Sheets('Synchronized Data').Range("$A$2:$A$117") 
.Values = Sheets('Synchronized Data').Range("$H$2:$H$117") 

1

我知道這是舊的,而不是主題,但我一直在尋找很長一段時間...和谷歌給這個鏈接,所以我只是把它放在那裏,希望它會幫助別人。 。

.(X)Values = New Object() {value1, value2, etc..}