グラフのデータ範囲の変数設定

質問

シート上の埋め込みグラフで，データの範囲を変数として設定したいのですが，
ActiveSheet.ChartObjects("グラフ").Activate
ActiveChart.PlotArea.Select
a = ｘ*2
b = ｘ*3
c = ｙ*2
d = ｙ*5
ActiveChart.SeriesCollection(1).XValues = "=シート１!R" & a& '"C" &b& ":R" &c& "C" &d

とすると，最後の式が構文エラーとなります。
何が原因なのかご存知方よろしくお願いします。

回答No.2

papayuka

全体を掲示して頂かないと何とも言えません。
こちらでは下記のような記述で動作確認をしました。

Sub Test()
　x = 1: y = 1
　ActiveSheet.ChartObjects("グラフ").Activate
　'ActiveChart.PlotArea.Select
　a = x * 2: b = x * 3
　c = y * 2: d = y * 5
　With Worksheets("シート１")
　　ActiveChart.SeriesCollection(1).XValues = _
　　　　　　　　.Range(.Cells(a, b), .Cells(c, d))
　End With
End Sub

お礼

お手数をおかけしました。
最初の変数の定義に問題があったようです。
ありがとうございました。

回答No.1

papayuka

SeriesCollection の XValues に 文字列は渡せないようです。

a = x * 2
b = x * 3
c = y * 2
d = y * 5

With Worksheets("シート１")
　ActiveChart.SeriesCollection(1).XValues = .Range(.Cells(a, b), .Cells(c, d))
End With

お礼

papayuka様ご返答ありがとうございました。
追加で質問させていいただければと思いますが，
内容のとおり実行したところ，新たに
”SeriesクラスのXValuesプロパティを設定できません”とのメッセージが出てしまったのですが，どこか違う個所の記述が悪いのでしょうか。