NO.1
超链接是网页浏览最普通的路径选择方式,那么在Excel中如何添加超链接呢!
熟悉Excel操作,通常在工具栏里就有添加超链接快捷按钮。
这里重点讲一下,如何用代码来进行添加。
由于代码添加有很强的便捷性,所以应用也十分方便。
![b332664fbd6d112ae46e49cd5727b818.png](https://i-blog.csdnimg.cn/blog_migrate/a22bfb1a40d770a67f448e33d1cc8b15.jpeg)
NO.2
Hyperlink对象代表一个超链接对象,其复数Hyperlinks就是超链接对象的合集。
具体方法和属性如下图所示
![f135836dbdd72d5b936578e5b5e800da.png](https://i-blog.csdnimg.cn/blog_migrate/ef8b4e5ac8cbf88e9f6727804880bae2.jpeg)
NO.3
添加链接:Hyperlinks.add方法添加超链接。
Hyperlinks.Add添加超链接支持Range和Shape两种类型。
参数如下:
![5b30ef2bf4b2076f2d93419857e20a7d.png](https://i-blog.csdnimg.cn/blog_migrate/2b25df3ab28b0a62a78b2f7d29467eb2.jpeg)
NO.4
删除链接:Hyperlink.Delete
![7b320fcc9039c3d43ce8a0cb1c03cdd4.png](https://i-blog.csdnimg.cn/blog_migrate/b9ff9fb4f7bf240bad446a4a227b1cb0.jpeg)
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值。