エクセル2013でのグラフマクロ作成したい。

Question

下記のような折れ線グラフのマクロを作成しました。

・1つ目のWithブロックは問題なく動くのですが。
・2つ目のwithブロックは作成したグラフを選択しないとエラーが出てしまいます。
⇒グラフを選択してないので、エラーになると思うのですが。

対象としたデータは一番下に添付させていただきます。

Sub Graph_sample()

With ActiveSheet.Shapes.AddChart.Chart 'グラフ作る!(7760dac79fcab332cee28c236fa6ffe8.jpeg)
.ChartType = xlLineMarkers 'グラフの指定
.SetSourceData Source:=Sheets("Sheet1").Range(Cells(2, 3), Cells(30, 3)) 'データ範囲。データが増えたときのため余裕を持たせています。
End With

With Selection.Format.Line
.ForeColor.ObjectThemeColor = msoThemeColorAccent6
End With

End Sub

下記内容の対策がわからないのです。

1．一つ目の作成したグラフに名前を付ける。
⇒Nameとか書いてみたんですが、メモリーが足りませんとか言うエラーが出てうまくいきませんでした。

2.二つ目のwithで、折れ線グラフの色を変えたいのですが、グラフを選択する方法がわからないため、エラーが出てしまいます。
⇒選択するためにグラフに名前を付けようとしたのですが、名前付けが失敗しました。

どなたか解決方法をご存知の方がおられましたらご教示お願いします。

Answer 1

With ActiveSheet.Shapes.AddChart.Chart 'グラフ作る!(7760dac79fcab332cee28c236fa6ffe8.jpeg)

の部分を

Dim aChart as Chart
set aChart = ActiveSheet.Shapes.AddChart.Chart 'グラフを作って、そのグラフを変数 aChartに記録する
With aChart

というように変えて

With Selection.Format.Line

の部分を

With aChart.Format.Line

に変えたらどうでしょうか