Excel VBAでグラフを移動させるマクロを作りたいのですが

VBA初心者です。
エクセル上で、その時点でアクティブなグラフを移動させたいのですが・・・

Dim myName
myName = ActiveChart.Name
ActiveSheet.Shapes(myName).IncrementLeft 10.00

これを実行すると「指定した名前のアイテムが見つかりませんでした」と、エラーがでます。
おそらく、Shapes("グラフ 1")としなければならないのに、Shapes("Sheet1 グラフ 1")となっているためと思われますが・・・？
このエラーをなくすには、どうすれば良いのでしょうか？よろしくお願いします。

No.1 ベストアンサー 回答者： Wendy02 回答日時： 2005/05/30 12:49

文章のままからすれば、

　 Dim myName As String
　 myName = ActiveChart.Name
　 myName = Mid$(myName, InStr(myName, " ") + 1)
'　　　↑ここです。
　　 ActiveSheet.Shapes(myName).IncrementLeft 10#

グラフ 1というのは、ローカルネームですから、利用価値が低いですね。

この回答へのお礼

お返事、ありがとうございます。正常に動作することを確認しました！なにぶん初心者なもので、これから命令の意味をヘルプで調べてみます。ありがとうございました！

お礼日時：2005/05/30 14:49