Excel VBAでグラフ作成。A,C列をx値, B,D列をｙ値にした複数プロット - Visual Basic - 教えて！goo

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

通報する

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

通報する