エクセルVBA 図形に設定されたハイパーリンクについて

お世話になります。

シート内に存在する図形にハイパーリンクを設定しています。
エクセル上からの操作では問題なくできるのですが、
それをいざマクロから行おうと思いマクロの記録をしてみるのですが、どうしても記録が行われません。
せめて、記録する方法だけでもと思い検索を行っているのですが、
検索方法が下手なのかどうしても目的の説明が見つかりません。
マクロから図形にハイパーリンクを設定する方法、もしくはそのマクロを記録する方法について、アドバイスをお聞かせください。
よろしくお願い致します。

No.1 回答者： okormazd 回答日時： 2009/02/05 16:44

普通に記録すれば、記録できるが。

Sub Macro2()

ActiveSheet.Shapes("Rectangle 1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= "D:\MyDoc\Book2.xls"

End Sub