No2046218のカスタムなのですが

質問

いつもお世話になります。
以前、No2046218にて質問させていただき、この機能にはとても満足しています。
このたび別の仕事で、簡易地図検索をつくろうと思い、以前ご教授いただいたこの機能をカスタムできないかと考えた次第です。
そのときおしえていただいたモジュールは、
Sub ボタン_Click()
Sheets("別紙1").Range("E1") = ActiveSheet.Name
Sheets("別紙1").Activate
Range("B65536").End(xlUp).Offset(1).Select
End Sub

Sub ボタン1_Click()
i = Range("B65536").End(xlUp).Offset(, -1).Value
na = Range("E1")
Sheets(na).Activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="別紙1!B" & i + 2, TextToDisplay:=Str(i)
End Sub
で、自動採番式のハイパーリンクです。
この機能は、セルを選択してボタンをクリックすると、サブシートの一覧にとび、ボタン１をクリックすると元のシートに戻り、ハイパーリンクをつなげるといったものですが、この機能を、セルではなくて、オートシェイプとリンクしたいと思います。
そこで、シート上に画像の地図を貼り付け、マクロでオートシェイプを発生させて、そのオートシェイプとサブシートの一覧（住所録）をハイパーリンクでつなげたいと思っています。
よって手順は、ボタンを押してオートシェイプを発生させて、サブシートにとび必要事項を記入してボタン１を押すと元のシートに戻った時点で、ハイパーリンクが出来ているというものです。
はじめにオートシェイプを発生させたときに、その中に任意のテキストを入力できるようになるとさらにありがたいです。
よろしくご教示いただきますようお願い致します。

回答No.1

noname#123709

オートシェイプへのハイパーリンクができないように思います。

お礼

ご回答ありがとうございます。
>オートシェイプへのハイパーリンクができないように思います。
そうですか？残念です。
オートシェイプではない、別の手段はないですか？
たとえばテキストとか。。。。

補足

画像（オートシェイプ）をクリックすると、特定のセルを表示することは、ハイパーリンクで設定できるようなので、今度はセルをクリックすると、別のシート内の画像を表示できればいいのですが。また、この流れの一連がマクロに登録できれば。。。