VBAのグラフに違うシートの系列の追加について??
VBAでグラフに新たな系列を追加しようと思い
以下のプログラムを書きました。
しかしながら、 .
Valuesの値の指定の場所でエラーが発生しました。
また、
.XValues = Sheets(シート名(o)).Range(Cells(2, 1), Cells(行の数 + 1, 1))
.Values = Sheets(シート名(o)).Range(Cells(2, p + 1), Cells(行の数 + 1, p + 1))
を
.XValues = Range(Cells(2, 1), Cells(行の数 + 1, 1))
.Values = Range(Cells(2, p + 1), Cells(行の数 + 1, p + 1))
に直すとうまくいきました。
別のシートの値をグラフに設定する方法がわかっていないみたいなのですが、
やり方がよくわかりません。
もし、わかる方がいたら教えていただけないでしょうか?
よろしくお願いします。
以下、書いたプログラムです。
o=2
ActiveSheet.ChartObjects("グラフ1 " ).Activate
ActiveChart.SeriesCollection.NewSeries
'グラフの種類・データの範囲・凡例・2軸の使用を指定します
With ActiveChart.SeriesCollection(o)
'グラフの種類を設定 折れ線グラフ
.ChartType = xlXYScatterLines
'データの指定
.XValues = Sheets(シート名(o)).Range(Cells(2, 1), Cells(行の数 + 1, 1)) '←ここでエラーが出ます。
.Values = Sheets(シート名(o)).Range(Cells(2, p + 1), Cells(行の数 + 1, p + 1))
'凡例の指定
.Name = シート名(o)
End With
お礼
度々助けていただきとても助かります。 ありがとうございます。