2

SeriesCollection.Values プロパティを設定しようとしていますが、「Series クラスの Values プロパティを設定できません」というエラーが表示されます。Google で考えられる解決策を試しましたが、まだ機能していません。

"'Synchronized Data'!$H$2:$H$117" の代わりに xlNewApp.Sheets("Synchronized Data").Range("H2:H117") を使用しましたが、これも機能しませんでした。

グラフ化したい実際のデータの配列 (例: "={58, 77, 65,106}") を入力することである程度成功しましたが、必要な配列を作成するためにすべてのデータをループすることは避けたいと思います。

この問題に関するヘルプをいただければ幸いです。

コードは次のようになります。

    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

更新: その行が次の場合、コードはエラーになりません。

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

H15 が H16 になると、再びエラーが発生します

4

2 に答える 2

1

私はこれが古くて主題ではないことを知っていますが、私はそれを非常に長い間探していました...そしてグーグルはこのリンクを提供するので、誰かを助けることを願ってそこに置きます..

    .(X)Values = New Object() {value1, value2, etc..}
于 2014-03-11T14:57:47.217 に答える
0

これらの行を置き換えると機能しますか:

    .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")

?

于 2012-07-09T18:44:36.860 に答える