折れ線グラフのデータ範囲を変更する際の書き方について

質問概要

EXCELシート上に作成した折れ線グラフのデータ範囲を変更するVBAを作成しております。
データ系列の範囲を変更するVBAコードで不明な点があり質問させて頂きました。

シートの構成

■Sheet1
折れ線グラフの元となるデータが時系列行方向に存在します。

A(日付)	B(系列１)	C(系列２)
2020/06/01	1000	5.0
2020/06/02	1005	5.0
2020/06/03	1030	5.1
：	：	：

■Sheet2
折れ線グラフオブジェクト（グラフ１）が存在します。

系列範囲の変更

系列１と２をそれぞれSheet1のB列、C列の任意の範囲に変更するVBAコードを
先ずマクロの記録で取得してみました。

VBA
1'マクロの記録で取得したコード
2    ActiveSheet.ChartObjects("グラフ 1").Activate
3    ActiveChart.FullSeriesCollection(1).Select
4    Application.CutCopyMode = False
5    ActiveChart.FullSeriesCollection(1).Values = "=Sheet1!$B$2:$B$1263"  '系列１の範囲
6    ActiveChart.FullSeriesCollection(2).Values = "=Sheet1!$C$2:$C$1263"  '系列２の範囲

系列１と２の範囲を任意に書き換えて動作することは確認できましたが、ActiveSheetやActiveChartを
使用したくなかったので、以下のように書き換えて実行すると実行時エラーとなりました。

VBA
1''ActiveXXXを書き換え
2''dataRange1とdataRange2にそれぞれ、=Sheet1!$B$2:$B$1263　と　=Sheet1!$C$2:$C$1263　が
3''設定されています。(Debbug.Printで確認済）
4    With ThisWorkbook.Sheets("Sheet2")
5        .ChartObjects("グラフ 1").FullSeriesCollection(1).Values = dataRange1 '実行時エラー発生ステップ
6        .ChartObjects("グラフ 1").FullSeriesCollection(2).Values = dataRange2
7    End With

エラーメッセージ

実行時エラー'438':
オブジェクトは、このプロパティまたはメソッドをサポートしていません。

質問事項

ActiveSheet.ChartObjects("グラフ１")は、

ThisWorkbook.Sheets("Sheet2").ChartObjects("グラフ１")と等価。
0. 同様にActiveChart.FullSeriesCollection(1).Valuesは、
ThisWorkbook.Sheets("Sheet2").ChartObjects("グラフ１").FullSeriesCollection(1).Valuesと等価。

と考えましたが、なぜエラーが発生し、どこに誤りがあるかわかりません。
原因を教えて頂けないでしょうか？

行動規範の内容に同意します

回答1件

ベストアンサー

外していたらゴメンナサイ。
もしかして、
ThisWorkbook.Sheets("Sheet2").ChartObjects("グラフ１").Chart.FullSeriesCollection(1).Values
のように、ChartObjects(id)の後にChartが必要だったりしますか？

ちなみに、いつも私は、以下のようにオブジェクトを変数で受けるようにしています。

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2")
・
・
・
このようにすると、どの変数のメンバが間違っているかが分かりやすいです。

投稿2020/06/17 07:46