文章目录[隐藏]
- 第一
- 第二
- 第三名
超链接代码(怎样编写超链接代码)
第一
Excel中超链接的应用一个非常简单的操作，直接使用插入菜单中的超链接功能即可。
下面是相应的vba代码怎样实现，添加，删除，收藏超链接。
这个例子使用了一个对象，超链接。
超文本链接对象，及其集合对象超链接。
其实大部分vba都有单数和复数对象，分别代表一个和多个。
Hyperlinks是Hyperlink的复数，是单个超链接的集合。
Hyperlink对象的技巧和属性如下图所示:
添加收藏夹
这篇文章小编将使用的是AddToFavorites，其功能是将超链接快捷方式添加到体系的收藏夹文件夹中。
技巧:
ActiveWorkbook。添加收藏夹
第二
使用超链接创建超链接。添加技巧。
参数如下图所示:
需要两个参数，定位标记，这一个范围或形状对象，另一个参数，地址，是超链接地址。
其他参数是可选的。
语法:
超链接。添加(锚点、地址、子地址、屏幕提示、文本显示)
下面的示例将添加一本书的深入了解作为超链接文本，并将URL作为链接地址。
其实这个功能非常简单实用。
具体代码如下图所示:
第三名
代码:
创建超链接
Private?Sub?CommandButton1_Click()Dim?R?As?Range,?Rs?As?RangeSet?Rs?=?ActiveSheet.Range(&8220;B4:B15&8243;)&8217;定义创建超链接的定位标记区域For?Each?R?In?Rs&8217;遍历超链接区域&8221;&8217;?添加超链接????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(&8220;B4:B15&8221;)Rs.Hyperlinks.DeleteEnd?Sub
Delete只有一个技巧，没有参数，delete。
在这个例子中，Range对象被用作超链接的定位标记，在应用中也可能使用形状定位，也就是说图形对象定位。
比如地图作为定位的超链接，单位对应区域打开对应城市相关的文件或网页。
稍后我会详细解释。
-结束-
