3 超链接_如何用vba代码创建超链接,把这个方法学会,就懂了

No.1

超链接在Excel中应用是一个很简单的操作,直接在插入菜单里使用超链接功能就可以。

这里介绍一下对应的vba代码来如何实现,添加、删除和收藏超链接功能。

2bb401f31e92ffaea024a5b50aaa47ef.png

本例用到一个对象,Hyperlink。

超文本链接对象,和它的集合对象Hyperlinks。

其实vba里大多数都有单数和复数的对象,分别表示一个和多个。

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

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

dec61d05c4be9ae1f3a8c618f0f75bdc.png

添加收藏

本文用到AddToFavorites,其功能是将超链接快捷方式添加到系统的收藏夹文件夹里。

方法:

ActiveWorkbook.AddToFavorites

No.2

创建超链接使用Hyperlink.Add方法来实现。

参数如下图所示:

5c0a048b7b9fd094c06dbee3b793b866.png

其中两个参数是必须的,Anchor定位标记,这个要Range或Shape对象,另一个参数Address,超链接地址。

其它参数可选。

语法:

Hyperlinks.Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

如下例子是将书名作为超链接文本,把网址作为链接地址进行添加。

957ce7107eb26f5f6319d1d5d6c116cd.png

其实这个功能还是十分简单的,用到的比较实用。

具体代码如下图所示:

e7e4b03e97a7fb62a78ec61a0f91d3df.png

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 Sub

删除只有一个方法,没有参数,Delete。

本例以Range对象作为超链接的定位标记,实现在应用中可能还会用到Shape定位,也就是说图形对象定位。

比如以地图为超链接的定位,单元相应区域打开相应城市相关连的文件或网页等功能。

以后再详细介绍。

---END---

欢迎关注、收藏

  • 3
    点赞
  • 13
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值