Excel_VBA 为单元格插入指向工作簿外部的超链接、删除超链接

Public Sub 4_156()
Dim myRange As Range
Dim myHyps As Hyperlinks
Set myRange = Range("A1") '指定任意的单元格
Set myHyps = myRange.Hyperlinks
With myHyps
.Delete '删除已经存在的超连接
'插入指向本工作簿外部的超连接
.Add Anchor:=myRange, Address:="C:\ index.html", _
ScreenTip:="单击将开始浏览搜狐网站", _
TextToDisplay:="http://www.sohu.com/"
End With
Set myHyps = Nothing
Set myRange = Nothing
End Sub