下記のような折れ線グラフのマクロを作成しました。
・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で、折れ線グラフの色を変えたいのですが、グラフを選択する方法がわからないため、エラーが出てしまいます。
⇒選択するためにグラフに名前を付けようとしたのですが、名前付けが失敗しました。
どなたか解決方法をご存知の方がおられましたらご教示お願いします。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。