埋め込みグラフを作る その6(2軸のグラフにする)

その5にちょっと継ぎ足すだけで2軸のグラフを作成することができます．以下に示します．

【事例】
Sub Second_graph_make()

With ActiveSheet.ChartObjects.Add(50, 100, 300, 200).Chart
.SetSourceData Sheets("sheet1").Range("A3:D6")
End With

ActiveSheet.ChartObjects.ShapeRange.Name = "test"

With ActiveSheet.ChartObjects("test").Chart.SeriesCollection("パスタ")
.ChartType = xlLineMarkers
.AxisGroup = xlSecondary
End With

結構簡単に2軸にすることができました．これは使える（メモメモ）．
End Sub