求Vba 为图片添加超链接的代码,该怎么处理

求Vba 为图片添加超链接的代码
我用vba引入了图片，然后我希望为图片添加一个超链接，同样希望通过vba进行操作，但是我进行了宏录制，手动的给图片加了链接后，在宏中并没有显示。谁能给个demo或者给个代码，多谢！

[解决办法]
我录制后，宏里有代码。

你参考下：

VB code

Sub Macro1()''    ActiveSheet.Shapes("Picture 1").Select    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _        "D:\My Documents\Edit1255.TXT"    Range("J23").Select    Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _        :=TrueEnd Sub