在VBA中将URL链接添加到评论中

Question

我希望VBA中的代码在可点击URL旁边的单元格中设置注释。我可以这样手动进行：
1）单击该单元格，然后以“ http://www.google.com.br”插入评论
2）右键单击评论单元格，然后选择“显示/隐藏评论”以显示评论。
完成后，该单元格将设置为显示可点击超链接的注释。

我在VBA中尝试过的操作

Sheets(1).Range("H2").AddComment "http://www.google.com.br"
Sheets(1).Range("H2").Comment.Visible = True
Range("H2").Comment.Shape.Select True

但这不会使单元格成为超链接。我仍然需要选择评论，然后选择另一个单元格以使其显示为可单击的链接。

我也尝试过：

Dim shp as Shape
With Range("H2")
    .AddComment
    .Comment.Visible = True
    Set shp = .Comment.Shape
End With
ActiveSheet.Hyperlinks.Add Anchor:=shp, Address:="", _
                   SubAddress:="A7", ScreenTip:="Move"

但是我仍然无法在VBA中使用它。

感谢您的帮助！