マクロ

質問

下記のようなプログラムを組んでグラフを書こうとしているのですが，ある問題が発生しました．

dim ydata(6) as Range

For n = 1 To 6
If OP(n) = True Then
'新しくデータ系列を作成します
ActiveChart.SeriesCollection.NewSeries

With ActiveChart.SeriesCollection(n)

'グラフの種類を設定 棒グラフ
.ChartType = CT

'X軸の項目軸を指定
.XValues = xdata

'データの指定
.Values = ydata(n)

'凡例の指定
.Name = HL(n)

'凡例の色
.Interior.ColorIndex = HCL(n)

End With

　　nが2となった時，ydata(2)がNothingとなってしまいます．

ちなみに，elseから先が抜けておりますが，elseだった場合第2軸のデータ設定となります．

原因が解らないため大変困っております．

どなたか，ぜひご教授願えないでしょうか？

よろしくお願いいたします．

回答No.1

mt2008 · ベストアンサー

コレだけは、「元々、ydata(2)はNothingだったんじゃない?」ぐらいしか言えません。
ydata()に値を入れる所も含めてコードを提示して見てください。