グラフのプロパティ（名前？）について

質問

エクセルで作成されたグラフには[Book1]Sheet1グラフ1・グラフ2・グラフ3・・・と名前が作成した順についていきますが、この名前を任意に変更することは出来ないのでしょうか。
例えば、1番目に作ったグラフをグラフ3に、２番目に作ったグラフをグラフ1に・・・といったようにグラフを作ってしまった後から変更したいのですが可能でしょうか？
どなたかご存じの方がいらっしゃいましたら、ぜひ、ご教授ください。

回答No.3

sanakazu · ベストアンサー

Sub グラフ名取得マクロ()
Dim cn As String
Dim i, k As Integer

i = 1
k = 1

cn = ActiveChart.Name
ActiveWorkbook.ActiveSheet.Cells(i,k).Activate
Cells(i, k).Value = cn
End Sub

簡単にですが・・・。
iとkには任意の数字（i=行数、k=列数）を入れて、グラフを選択している状態で実行してください。
グラフを選択していないとエラーですよ。簡単に、なのですみません・・・。

お礼

sanakazuさん
ありがとうございました。大変参考になりました。

回答No.4

BLUEPIXY

＞名前の取得
ActiveChart.name
で得られる名前は、グラフウインドウ（右クリックからグラフウインドウを選んで表示されるウインドウの名前）の名前で、これはユーザーで変更できないようです。

グラフオブジェクト自体の名前は、以下のようにして求められます。こちらは代入によって変更できます。
ActiveSheet.chartObjects(1).name

お礼

BLUEPIXYさん　　回答ありがとうございます。
とても参考になりました。

回答No.2

ChM

「グラフ１」「グラフ２」「グラフ３」という３つ(あるいはそれ以上)のファイルが既に作られている、ということでしょうか？ それは、どこに保存してありますか。仮にマイドキュメントに保存されているものとします。

「グラフ３」を「グラフ１」に変更しようとすると、マイドキュメントに同名のファイルが２つ作られることになりますが、そのようなことはできません。

「グラフ３」をデスクトップに移動して(右ボタンでドラッグして「ここに移動」)から、これを右クリックで「名前の変更」で「グラフ１」に変えてください。

同様に「グラフ１」をデスクトップに移してから「グラフ２」とします。

マイドキュメントに残った「グラフ２」は、その場所で(デスクトップに移動させずに)「グラフ３」に変えます。

終わったら、デスクトップの２つのファイルをマイドキュメントに移動して終了です。

要は、１つのフォルダに同名の複数のファイルを作らないようにすることです。

なお、単に数字だけの変更だったら、マイドキュメントに置いたままで「グラフ１(全角数字)」を「グラフ1(半角数字)」や「グラフ(1)」や「グラフ-1」などとしたほうが、能率がいいでしょう。

回答No.1

sanakazu

VBAで試みましたが、名前の取得はできても変更はできなさそうです・・・。

補足

sanakazu さん　早速の回答ありがとうございます。
やはり無理ですか・・・・

＞名前の取得はできても
　　ちなみに、名前の取得はどうすれば出来るのですか？
　　宜しければ教えて頂けませんでしょうか。
　　便乗質問になって申し訳ないのですが、おねがいします。