超级链接代码(超链接代码怎么写)
No.1超链接在Excel中应用是一个很简单的操作,直接在插入菜单里使用超链接功能就可以。
(相关资料图)
这里介绍一下对应的vba代码来如何实现,添加、删除和收藏超链接功能。
本例用到一个对象,Hyperlink。
超文本链接对象,和它的集合对象Hyperlinks。
其实vba里大多数都有单数和复数的对象,分别表示一个和多个。
Hyperlinks就是Hyperlink的复数,是单个超链接的集合。
Hyperlink对象方法和属性如下图所示:
添加收藏
本文用到AddToFavorites,其功能是将超链接快捷方式添加到系统的收藏夹文件夹里。
方法:
ActiveWorkbook.AddToFavorites
No.2创建超链接使用Hyperlink.Add方法来实现。
参数如下图所示:
其中两个参数是必须的,Anchor定位标记,这个要Range或Shape对象,另一个参数Address,超链接地址。
其它参数可选。
语法:
Hyperlinks.Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
如下例子是将书名作为超链接文本,把网址作为链接地址进行添加。
其实这个功能还是十分简单的,用到的比较实用。
具体代码如下图所示:
No.3代码:
创建超链接
PrivateSubCommandButton1_Click()DimRAsRange,RsAsRangeSetRs=ActiveSheet.Range("B4:B15")"定义创建超链接的定位标记区域ForEachRInRs"遍历超链接区域"""添加超链接Hyperlinks.Addanchor:=R,_Address:=R.Offset(0,1),_ScreenTip:=R.Offset(0,2).Value,_TextToDisplay:=R.ValueNextREndSub
删除超链接
PrivateSubCommandButton2_Click()DimRAsRange,RsAsRangeSetRs=ActiveSheet.Range("B4:B15")Rs.Hyperlinks.DeleteEndSub
删除只有一个方法,没有参数,Delete。
本例以Range对象作为超链接的定位标记,实现在应用中可能还会用到Shape定位,也就是说图形对象定位。
比如以地图为超链接的定位,单元相应区域打开相应城市相关连的文件或网页等功能。
以后再详细介绍。
---END---
凡注有"环球传媒网"或电头为"环球传媒网"的稿件,均为环球传媒网独家版权所有,未经许可不得转载或镜像;授权转载必须注明来源为"环球传媒网",并保留"环球传媒网"的电头。
资讯
- 元气森林完成了对杏皮茶“最喜”的收购
- 御供俊元接任!索尼集团中国副总代表高桥洋已正式退休
- 火车票搜索量上涨1.5倍!通信行程卡取消“星号”标记
- 日产在美召回32万多辆汽车 车型为2013年至2016年的322671辆Pathfinder SUV
- 高盛的内部预测显示:今年的消费者业务损失将超过12亿美元
- 虎牙被罚2万元!多位主播跳舞现不雅动作
- 埃克森美孚及帝国石油以19亿加元出售XTO Energy Canada
- 恒生指数夜期(6月)收报22131点 跌240点或1.073%
- 读书郎(02385)拟发行5200万股股份 于2022年6月29日至2022年7月5日招股
- QQ账号被盗?谨慎扫描二维码 做好个人保护