| |
VBA初心者です。
1系列ずつの複数（この場合7つ）の散布図を作成したいと思っています。
B1からF1にX値があり、A2からA8に系列名があります。
以下のような式を作成したのですが、このままでは7系列ある１つの図になってしまいます。
初歩的な誤りがあるのだと思いますが、どなたかご教授していただけないでしょうか？
よろしくお願いいたします。
Sub Graph()
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
.ChartType = xlXYScatter
For i = 1 To 7
With .SeriesCollection.NewSeries
.Name = Sheets("data").Cells(1 + i, 1)
.XValues = Sheets("data").Range(Cells(1, 2), Cells(1, 6))
.Values = Sheets("data").Range(Cells(1 + i, 2), Cells(1 + i, 5))
End With
Next i
End With
End Sub
|
|
mayu
- 11/7/20(水) 21:35 -
