エクセルVBAで複数の図に名前をつけたい

質問

エクセルVBAで複数の図に名前をつけたい
エクセルで見出しと合計２カ所などウィンドウ枠固定を複数つける
ことはできないので、かわる方法として図のリンク貼り付けを利用
しようと思い下記を作りました。

Sub test()
　　Range("A100", "R100").Select
　　Selection.Copy
　　Range("Ａ1").Select
　　ActiveSheet.Pictures.Paste link:=True
　　ActiveSheet.Pictures.ShapeRange.Name = "合計１"

　　Range("A200", "R200").Select
　　Selection.Copy
　　Range("A2").Select
　　ActiveSheet.Pictures.Paste link:=True
　　ActiveSheet.Pictures.ShapeRange.Name = "合計２"　・・・(1)
End Sub

必要に応じて合計１または合計２を削除します

Sub 図１削除()
ActiveSheet.Shapes("合計１").Delete
End Sub

Sub 図2削除()
ActiveSheet.Shapes("合計２").Delete
End Sub

(1)のところで
「このメンバにアクセスできるのは、単一の図形の場合だけです」エラーになります。
エラーがでないように図に名前をつける方法をおしえていただけないでしょうか。
何卒よろしくお願い致します

回答No.1

keithin · ベストアンサー

とりあえず，ご質問の直接の回答としては

Sub test()
　Range("A100", "R100").Copy
　Range("A1").Select
　ActiveSheet.Pictures.Paste(link:=True).Name = "合計１"

　Range("A200", "R200").Copy
　Range("A2").Select
　ActiveSheet.Pictures.Paste(link:=True).Name = "合計２"
End Sub
といった具合で。

＃以下余談
有り体に言えば100行目や200行目を参照する数式を，１行目にずらっと並べておくだけで十分に見えます。どんな状況で100や200を差し替えたい（ご質問の事例でわざわざDeleteを行う理由とタイミング）が不明なので,具体的な数式はまた別途ご相談ください。

または。
１行目に図のリンク貼り付けを１つ固定で配置しておき，その「リンクするセル範囲」を状況によって差し替える（こちらも同上で，何をどうしたら差し替えたいのか不明なので,具体的なマクロ等も提案できません），つまり１個のリンク貼り付けを使い回す事でも出来そうです。

お礼

早速の回答ありがとうございます。
回答の方法でエラーはなくうまくいきました。

＞どんな状況で100や200を差し替えたい・・・
実は行列両方にスクロールしないといけない巨大な表のため
スクロールしながら任意の場所にリンク貼り付け表示をON、OFF
できれば便利かなと思い質問しました。
いろいろなご提案ありがとうございます。