|
SeriesのValuesプロパティが設定できませんとなります
原因が分かりません。
よろしくお願いします。
A B C D
1 30 1 50 1
2 30 2 50 2
3 30 3 50 3
4 30 4 50 4
5 30 5 50 5
Sub 散布図作成テスト()
a = Range(Cells(1, 1), Cells(5, 1))
b = Range(Cells(1, 2), Cells(5, 2))
c = Range(Cells(1, 3), Cells(5, 3))
d = Range(Cells(1, 4), Cells(5, 4))
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = a
ActiveChart.SeriesCollection(1).Values = b
ActiveChart.SeriesCollection(2).XValues = c←ここでエラー発生
ActiveChart.SeriesCollection(2).Values = b
End Sub
|
|