Excel グラフの名前を番号にするマクロ(Rearranging Name of Excel Charts as specified)

前回にシートの並び替えに引き続き、今回はグラフに番号の名前をつけるマクロを紹介します

How to change name of chart to specific number.

シート上に複数のグラフがある場合、最初のグラフ(ChartObjects(1))が削除されると、削除後の最初のグラフ番号はスライドされ、ChartObjects(2)だったグラフがChartObjects(1)になります。そういった条件において、以前書いておいたマクロを実行するときにChartObjects(番号)とコードに書かれていると間違ったグラフが選択されてしまいます。

下記のサンプルコードは、グラフに番号の名前を順番につけるものです。このマクロを、実行すると、ActiveSheet.ChartObjects("1").Activate というようにStringの番号でグラフを選択することができます。番号をつけるメリットは、多数のグラフの中から指定した範囲のグラフをループで指定して再設定することができます。

この場合は、ChartObjects("1")を削除しても、String値の名前がついてますのでエラーを防ぐことが出来ます。サンプルコードは番号ですが、別の名前をつけることもできます。配列などに名前を格納してからループで各グラフを指定して名前をつけますこちらのページを参考にしてください。

（注意）グラフが同じ名前になることがありますので、同じ名前にならないようにします。また、グラフを右クリックで「グラフウィンドウ」を選択すると、タイトルバーに「グラフ 番号」が表示されます。その名前は変えることが出来ません。サンプルコードでは、下記の２番目の"Chart 1" の名前を変えます。

グラフを選択する方法は３つあります。シートに最初に作成したグラフは下記の方法で選択することが出来ます。

ActiveSheet.ChartObjects("グラフ 1").Activate ''---1

ActiveSheet.ChartObjects("Chart 1").Activate ''---2

ActiveSheet.ChartObjects(1).Activate     ''---3

this sample code will change name of chart　to numerical order. There are three ways to activate chart as written above. Since this code is written in Japanese, it may be better not to reffer to it.