Excel VBAでグラフ作成。A,C列をx値, B,D列をｙ値にした複数プロット

質問

ExcelのVBAでグラフをChartType = xlXYScatterLinesでグラフを作っています。仮に各列10行でAからＦ列までデータがあるとします。
Set chartObj = ActiveSheet.ChartObjects.Add(170, 170, 280, 170)
With chartObj.Chart
.ChartType = xlXYScatterLines
.SetSourceData Worksheets(1).Range("A1:F10"), _
PlotBy:=xlColumns
.HasLegend = False
End With

上記のようにしてしまうと、x値がA1:A10で、y値がB1:B10,C1:C10・・・・のプロットが5本作成されてしまいます。

以下のようにするにはどうすればよろしいでしょうか。
第一のプロットはx値をA1:A10, y値をB1:B10としてグラフを作成します。次にこのグラフにx値をC1:C10, y値をD1:D10とした第二のプロットを追加、同様に第三はx値をE1:E10, y値をF1:F10としてプロットを追加したグラフを作成したいのですが、このようなグラフはVBAで作成可能でしょうか。

本番のグラフは行数と列数はいろいろな場合があるので、行数と列数のパラメータに任意の値を代入し、Forループで様々な形態に対応できるものを作りたいと考えています。

回答No.2

end-u · ベストアンサー

Dim chartObj As ChartObject
Dim r As Range
Dim i As Long

Set chartObj = ActiveSheet.ChartObjects.Add(170, 170, 280, 170)
Set r = Worksheets(1).Range("A1:F10")
With chartObj.Chart
　　.ChartType = xlXYScatterLines
　　.HasLegend = False
　　For i = 1 To 5 Step 2
　　　　With .SeriesCollection.NewSeries
　　　　　　.XValues = r.Columns(i)
　　　　　　.Values = r.Columns(i + 1)
　　　　End With
　　Next
End With

Set r = Nothing
Set chartObj = Nothing

...こんな感じ。
普通に手作業で作成するものをマクロ記録すればヒントになるでしょう。
後から系列を追加すればいいわけです。

>本番のグラフは行数と列数はいろいろな場合があるので...
...に対応させる一例としては以下。

Const MN = 1　'データ開始行
Const MX = 10 'データ個数
Dim chartObj As ChartObject
Dim x, y
Dim z As Long
Dim i As Long

x = VBA.Array(1, 3, 5) 'x値の列
y = VBA.Array(2, 4, 6) 'y値の列
Set chartObj = ActiveSheet.ChartObjects.Add(170, 170, 280, 170)
With chartObj.Chart
　　.ChartType = xlXYScatterLines
　　.HasLegend = False
　　For i = 0 To UBound(x)
　　　　With .SeriesCollection.NewSeries
　　　　　　.XValues = Cells(MN, x(i)).Resize(MX)
　　　　　　.Values = Cells(MN, y(i)).Resize(MX)
　　　　End With
　　Next
End With

Set chartObj = Nothing

お礼

ありがとうございます。おかげさまで希望のものができました。

回答No.1

redfox63

Excelのグラフでは無理がありそうです
単一X軸と 2軸(左右)のY軸なら可能でしょうけど ・・・