NO.1

超链接是网页浏览最普通的路径选择方式，那么在Excel中如何添加超链接呢！

熟悉Excel操作，通常在工具栏里就有添加超链接快捷按钮。

这里重点讲一下，如何用代码来进行添加。

由于代码添加有很强的便捷性，所以应用也十分方便。

NO.2

Hyperlink对象代表一个超链接对象，其复数Hyperlinks就是超链接对象的合集。

具体方法和属性如下图所示

NO.3

添加链接：Hyperlinks.add方法添加超链接。

Hyperlinks.Add添加超链接支持Range和Shape两种类型。

参数如下：

NO.4

删除链接：Hyperlink.Delete

NO.5

代码示例（Range）

    With ActiveSheet
    Set HyperObj = .Hyperlinks.Add(anchor:=.range("A1"), _
        Address:="https://www.toutiao.com/c/user/token/MS4wLjABAAAA8RbsKwxbhWMMCj81MYYPYoDP8QBU4D_DbTaS1hQuxKw/", _
        ScreenTip:="江觅.Excel VBA", _
        TextToDisplay:="江觅")
    End With

如上代码就是在当前工作表，A1单元格内添加一个超链接，地址为Address的值，链接文本显示为TextToDisplay的值，鼠标悬停显示文字为ScreenTip值。

根据这个方法，可以为其它单元格进行设置链接。

NO.6

给Shape添加超链接，也就是给图形图表添加链接。

    With ActiveSheet
    Set HyperObj = .Hyperlinks.Add(anchor:=.Shapes(1), _
        Address:="https://www.toutiao.com/c/user/token/MS4wLjABAAAA8RbsKwxbhWMMCj81MYYPYoDP8QBU4D_DbTaS1hQuxKw/", _
        ScreenTip:="江觅.Excel VBA", _
        TextToDisplay:="江觅")
    End With

这段代码就是在当前工作表，给Shape1对象添加一个超链接，地址为Address的值，链接文本显示为TextToDisplay的值，鼠标悬停显示文字为ScreenTip值。