【エクセルVBA】グラフの線、マーカーの色を一括で自動変更するマクロ！

「エクセルグラフの線＆マーカーの色を自動変更したい。」

この記事では、こんな悩みを解決します。

人が作ったグラフを自分の資料に差し込む際に

「なんでこんな配色してるんだ？」

なんてことはよくあるのではないでしょうか？

そんなとき、わざわざ一つ一つの線やマーカーの色を見やすいように調整するのは非常に面倒ですよね。

というわけで、この記事ではそんな作業を一瞬で終わらせることができるマクロをご紹介します。

事前にあるエクセルファイルにこのマクロを作成しておき、

①そのファイルに既存のグラフを張り付ける

②記事中のマクロを実行するだけ

という非常に簡単なものになっておりますので、ぜひ最後までご覧ください。

それでは早速やっていきます！

紹介するスキルの概要説明
事前準備：グラフを作成しておく
VBAコードを記述する
実行ボタンを作成する
マクロの実行方法
おわりに

紹介するスキルの概要説明

冒頭に簡単に言葉でこの記事の内容をご説明しましたが、あなたのやりたいことと一致していなければ申し訳ないので、この記事で紹介する内容をもう少し詳しくご紹介しておきます。

この記事では、以下の画像のように、既存のグラフの線の色をあらかじめ指定した色に一括自動変更するマクロをご紹介していきます。

※画像上は二つグラフがありますが、一つのグラフ内で完結するマクロになっています。

あなたのやりたいことと一致していればぜひ続きをご覧ください。

事前準備：グラフを作成しておく

グラフの線の色を変更するマクロをご紹介していきますので、まずはグラフがないと始まりません。

まずはなんでも良いので適当な折れ線グラフor 散布図を準備しておきましょう。

今回は以下のような５本の線が記載されたマーカーつき折れ線グラフを例にご説明していきます。

グラフの準備ができたら、実際の作業に移っていきましょう。

※ここで準備するグラフは、このマクロが記述されたエクセルシート上で作成されている必要はありませんので、別のシートで作成させたグラフをコピーしてきても全く問題ありません。

VBAコードを記述する

いきなりですが、まずはVBAコードを記入します。

※VBAの使いかたがわからない人は以下の記事を参考にVBAを使える環境を整えておきましょう。

【初心者用】エクセルマクロ（VBA)の始め方を詳細解説

VBAコードを書ける環境が整った方は以下のコードをコピペで張り付けましょう。

◆グラフの線&マーカーの色を変更するVBAコード

Sub graph_line_color()
    Dim num_line As Integer
    Dim i As Integer
    '色をリスト化
    Dim color_list(5) As Variant
    color_list(1) = RGB(255, 0, 0)
    color_list(2) = RGB(0, 255, 0)
    color_list(3) = RGB(0, 0, 255)
    color_list(4) = RGB(255, 0, 255)
    color_list(5) = RGB(0, 255, 255)
    'データ数を数える
    num_line = ActiveChart.SeriesCollection.Count
    i = 1
    'データ数に達するまでor色のリストの数だけ処理する
    Do Until i > num_line Or i > UBound(color_list)
        ActiveChart.FullSeriesCollection(i).Select
        '色変更開始
        Selection.Format.Line.ForeColor.RGB = color_list(i)
        Selection.Format.Fill.ForeColor.RGB = color_list(i)
        i = i + 1
    Loop
End Sub

※今回設定した色は適当にRGB値を255に設定しただけですので、ここはあなたが変更したい色になるように適宜調整してください。

RGBって何？ってゆう方は以下から概要をご確認ください。

RGB – Wikipedia