Excel VBAで埋め込みグラフを取得する方法

Question

埋め込みグラフをいくつか複数作成したとき、Excel VBAでそれらを取得する方法を教えてください。

グラフをコピーペーストして作り、それらを取得しようとすると、コピーしたものがすべて同じ名前に

なってしまいました。

Answer 1

こういうことはやらないので、試してみましたが、コピー＆ペーストしたグラフは全部名前が変わって行きましたが？

Sub aaa()

With ActiveSheet

  For Each x In .Shapes

    MsgBox x.Name

    MsgBox x.Chart.Name

  Next

End With

End Sub

上記のコードはActivesheet上の図を全部拾い出して名前とグラフ名を表示してくれます。

（まるっきり手抜きで、シート上にグラフ以外の図があるとコケますので注意願います）

Answer 2

グラフをそれぞれ別々にコントロールしたいと思います。スケール、色、データの範囲などを

VBAでコントロールして、条件を変えて計算した結果を適切なグラフとして表示させます。

Answer 3

グラフの意味は分かりましたが、具体的に何をどうされたいのでしょうか？

Answer 4

>これは、グラフを一つ作り、それを複数コピーアンドペーストしたということでしょうか？

そうです。

マクロ記録にして、同じシート上に作ったグラフをコピーして作った３つのグラフを選択すると

下記のように同じIDの名前をもったグラフとして取得されます。  

   ActiveSheet.Shapes.Range(Array("グラフ 19", "グラフ 19", "グラフ 19")).Select

Answer 5

埋め込みグラフと言うのは何を意味しているのか分かりません。

>グラフをコピーペーストして作り

これは、グラフを一つ作り、それを複数コピーアンドペーストしたということでしょうか？

また、具体的にどのようなことを試されたのでしょうか？

コードを出してください。そうすれば多少は質問の意味が分かると思います。