求Vba 替图片添加超链接的代码

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

你参考下：

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 _
        :=True
End Sub