埋め込みグラフを作る その5(特定のグラフの系列だけグラフ種類変更)

非常に良くあることですが，ひとつの系列だけ（前回の例で言えばパスタの系列）のグラフ種類を変えたい場合があります．こんなときは以下の事例が役に立つと思います(例としては一連のデータを用いたマクロで…)．

【事例】
Sub 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
End With

End Sub

【解説】
赤字のように追加することでパスタの系列のみグラフの種類を変更することができます．あ～便利，便利．