加入收藏代码 如何添加网页收藏

No.1

在Excel中应用超链接是一个非常简单的操作。直接使用插入菜单中的超链接功能即可。

介绍了相应的vba代码如何实现添加、删除和收藏超链接的功能。

这个例子使用了一个对象，超链接。

超文本链接对象，及其集合对象超链接。

其实大部分vba都有单数和复数对象，分别代表一个和多个。

Hyperlinks是Hyperlink的复数，是单个超链接的集合。

Hyperlink对象的方法和属性如下图所示:

添加收藏

本文使用AddToForites，其功能是将超链接快捷方式添加到系统的收藏夹文件夹中。

方法:

ActiveWorkbook。添加收藏夹

No.2

创建超链接是通过使用超链接来实现的。添加方法。

参数如下图所示:

其中两个参数是必需的，即定位标记、Range或Shape对象以及地址和超链接地址。

其他参数是可选的。

语法:

超链接。添加(锚点、地址、子地址、屏幕提示、文本显示)

以下示例将图书标题添加为超链接文本，将网站地址添加为链接地址。

其实这个功能非常简单实用。

具体代码如下图所示:

No.3

代码:

创建超链接

private Sub command button 1 _ Click()Dim R As Range，Rs As RangeSet Rs = ActiveSheet。范围(& # 34；B4:B15 & # 34；)'为Rs中的每个R定义创建超链接的定位标记区域& # 39；遍历超链接区域& # 39；''添加超链接。addanchor: = r，_ address: = r.offset (0，1)，_ screentip: = r.offset (0，2)。value，_ text to display:= r . value next rend sub Delete超链接。

private Sub command button 2 _ Click()Dim R As Range，Rs As RangeSet Rs = ActiveSheet。范围(& # 34；B4:B15 & # 34；)Rs。只有一个方法可以删除，没有参数，Delete。

本例中使用Range对象作为超链接的定位标记，应用中可能使用形状定位，也就是说图形对象定位。

比如地图作为超链接定位，单位对应区域打开对应城市相关的文件或网页。

后面我会详细介绍。

-结束-

欢迎关注和收藏。