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

質問

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

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

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

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

　よろしくお願いします。

回答No.2

DreamyCat · ベストアンサー

下記でファイル名を取得する部分のコードを追加して
直接指定している部分を変数にすればできます。
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

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

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