江苏龙网

  1. 主页 > 生活百科 > >

超链接代码怎么写 超级链接代码

超链接代码(如何编写超链接代码)
No.1Excel中超链接的应用是一个非常简单的操作，直接使用插入菜单中的超链接功能即可 。
下面是相应的vba代码如何实现，添加，删除，收藏超链接 。

这个例子使用了一个对象，超链接 。
超文本链接对象，及其集合对象超链接 。
其实大部分vba都有单数和复数对象，分别代表一个和多个 。
Hyperlinks是Hyperlink的复数，是单个超链接的集合 。
Hyperlink对象的方法和属性如下图所示:
【超链接代码怎么写 超级链接代码】
添加收藏夹
本文使用的是AddToFavorites，其功能是将超链接快捷方式添加到系统的收藏夹文件夹中 。
方法:
ActiveWorkbook 。添加收藏夹
No.2使用超链接创建超链接 。添加方法 。
参数如下图所示:

需要两个参数，定位标记，这是一个范围或形状对象，另一个参数，地址，是超链接地址 。
其他参数是可选的 。
语法:
超链接 。添加(锚点、地址、子地址、屏幕提示、文本显示)
下面的示例将添加一本书的标题作为超链接文本，并将URL作为链接地址 。

其实这个功能非常简单实用 。
具体代码如下图所示:

No.3代码:
创建超链接
Private Sub CommandButton1_Click()Dim R As Range, Rs As RangeSet Rs = ActiveSheet.Range("B4:B15")'定义创建超链接的定位标记区域For Each R In Rs'遍历超链接区域''' 添加超链接Hyperlinks.Add anchor:=R, _Address:=R.Offset(0, 1),_ScreenTip:=R.Offset(0, 2).Value,_TextToDisplay:=R.ValueNext REnd Sub删除超链接
Private Sub CommandButton2_Click()Dim R As Range, Rs As RangeSet Rs = ActiveSheet.Range("B4:B15")Rs.Hyperlinks.DeleteEnd SubDelete只有一个方法，没有参数，delete 。
在这个例子中，Range对象被用作超链接的定位标记，在应用中也可能使用形状定位，也就是说图形对象定位 。
比如地图作为定位的超链接，单位对应区域打开对应城市相关的文件或网页 。
稍后我会详细解释 。
-结束-


    推荐阅读


    上一篇：怎么取名字好听又有内涵女孩 有内涵名字

    下一篇：大学生|弄巧成拙？一篇文章将铁路部门推向了风口浪尖