EXCELシートに貼り付けた図のリンク先の変更方法

　EXCEL2003でシートに図を貼り付けて、その図のリンク先にシート内の範囲（=$A$1:$G$8）を
指定しています。（挿入した図を指定して、EXCEL画面上部の値や関数を入力するところに
シートの範囲を入力しています）

　その指定した範囲をVBAから変更するにはどのようにすればよろしいでしょうか。


これでは駄目ですが、こんな感じでできればいいのですが....。

　ActiveSheet.Shapes("図1").Formula = "=$A$11:$G$18"

　よろしくお願いします。

No.2 ベストアンサー 回答者： DreamyCat 回答日時： 2012/11/23 13:48

下記でファイル名を取得する部分のコードを追加して

直接指定している部分を変数にすればできます。
Sheet1.Pictures.Insert("C:\Users\minoru\Pictures\図1.jpg").Formula = "=A5:G10"

あるいは、最後に追加した図でよければこのように。
アドレスを変数にすれば、Ａ１などに書いたアドレスを使って指定できます。
Sheet1.Shapes.Range(Sheet1.Shapes.Count).Select
Selection.Formula = "=C5:G15"

No.1 回答者： KURUMITO 回答日時： 2012/11/23 11:29

次のようにしてはどうでしょう。

Charts("図1").SetSourceData Worksheets("Sheet1").Range("A11:G18")