【Excel マクロ初心者】エクセルのグラフの色を一括で変更してみた！

どうも！そこらへんの社会人です。

今回は、下記のようなグラフの線の色を一括で変えてみたいと思います！
仕事をしていてこんな経験はないですか？
「大量のデータをグラフ一つ一つ選択して色を変えていかないといけない・・・」

今回はそんな悩みを解決できるきっかけになるかもしてないので参考にしてみてください！

実際にマクロを作成した後に実行したマクロがこれになります！！

いかがでしょうか？
私もExcel マクロを勉強し始め、日が浅いですがこんなことができるってすごいですよね・・・・

STEP1:マクロの記録でコードの確認
1. マクロの記録
2. 記録したマクロの確認
STEP2:For～Next文を用いて一括変更(結論だけ知りたい方はこちら！)

STEP1:マクロの記録でコードの確認

マクロの記録

①表示タブ⇒②マクロ⇒③マクロの記録をクリック

このようなメッセージBOXがでてくるのでマクロ名だけを記載しOK
⇒ここから「マクロの記録」がはじまります！！

実際にやってみた動画です。

最後に線の色が変更し終わったら、「記録終了」します。

記録したマクロの確認

記録したマクロを確認すると下記のようになっているので
意味を理解していきます。

Sub 線の色変更()

‘

‘ 線の色変更 Macro　　
タイトル

ActiveSheet.ChartObjects(“グラフ 3”).Activate

アクティブシートのグラフ2を活動化

ActiveChart.SeriesCollection(2).Select

　アクティブグラフのシリーズ2を選択

　With Selection.Format.Line

　選択された線の形式は、

.Visible = msoTrue

　　　凡例を塗りつぶします

.ForeColor.RGB = RGB(255, 0, 0)

　　　色を赤(RGB(255 , 0 ,))にします　　

End With　

End Sub

記録されたマクロの意味は理解できたので、次は一括で変更できるようにしていきます！

補足ですが、グラフ名とグラフの「SERIES」はグラフをクリックしてあげると表示されますよ！

STEP2:For～Next文を用いて一括変更(結論だけ知りたい方はこちら！)

For ～Next文を使って連続で色を変更させたいと思います！
考え方としては、SERIESがいま4つあるのでそのすべてに適用させてあげればいい！と考えました！

Sub 線の色変更()

‘

‘ 線の色変更 Macro　　
タイトル

ActiveSheet.ChartObjects(“グラフ 3”).Activate

アクティブシートのグラフ2を活動化

For i = 1 to 4

iを1~4繰り返す

ActiveChart.SeriesCollection(i).Select

　アクティブグラフのシリーズ i を選択