EXCEL VBA でグラフの名前を変更する方法

EXCELでグラフを作成した場合にそのグラフの名前が
自動的に"グラフ 1"等とつけられますが

EXCEL VBA で既に存在するグラフを扱う際に
分かりやすいようにそのグラフの名前を変更したいのですが方法がわかりません。
プロパティなどを見ても変更できそな項目がありません。
これは変更できないのでしょうか？
またプログラムを組んで変更する必要があるのでしょうか？どのようなプログラムになりますか？

No.2 回答者： Wendy02 回答日時： 2005/05/20 17:38

グラフは、チャートオブジェクトであって、コレクションで管理されますから、Index で処理したらいかかですか？

例:
ActiveSheet.ChartObjects(1)

以下は、サンプル・プロシージャです。

例:
Sub test_GraphName()
Dim myGrph As ChartObject
For Each myGrph In ActiveSheet.ChartObjects
　 MsgBox myGrph.Name　'逆に名前も変えられますが……
Next myGrph
End Sub

'名前の変更
Sub test_GraphName2()
Dim i As Integer
For i = 1 To ActiveSheet.ChartObjects.Count
　ActiveSheet.ChartObjects(i).Name ="MyGraph" & i
Next i
End Sub

No.1 回答者： 6dou_rinne 回答日時： 2005/05/20 17:06

変更できますよ。

名前のところをクリックしてください。