今天给各位分享关于“超级链接代码怎么写”的核心内容以及“超链接代码怎么写”的相关知识 , 希望对各位有所帮助 。
超链接代码(如何编写超链接代码)
第一Excel中超链接的应用是一个非常简单的操作 , 直接使用插入菜单中的超链接功能即可 。
下面是相应的vba代码如何实现 , 添加 , 删除 , 收藏超链接 。
这个例子使用了一个对象 , 超链接 。
超文本链接对象 , 及其集合对象超链接 。
其实大部分vba都有单数和复数对象 , 分别代表一个和多个 。
Hyperlinks是Hyperlink的复数 , 是单个超链接的集合 。
Hyperlink对象的方法和属性如下图所示:
添加收藏夹
本文使用的是AddToFavorites , 其功能是将超链接快捷方式添加到系统的收藏夹文件夹中 。
方法:
ActiveWorkbook 。 添加收藏夹
第二使用超链接创建超链接 。 添加方法 。
参数如下图所示:
需要两个参数 , 定位标记 , 这是一个范围或形状对象 , 另一个参数 , 地址 , 是超链接地址 。
其他参数是可选的 。
【超级链接代码怎么写,超链接代码怎么写】语法:
超链接 。 添加(锚点、地址、子地址、屏幕提示、文本显示)
下面的示例将添加一本书的标题作为超链接文本 , 并将URL作为链接地址 。
其实这个功能非常简单实用 。
具体代码如下图所示:
第三名代码:
创建超链接
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只有一个方法 , 没有参数 , delete 。
在这个例子中 , Range对象被用作超链接的定位标记 , 在应用中也可能使用形状定位 , 也就是说图形对象定位 。
比如地图作为定位的超链接 , 单位对应区域打开对应城市相关的文件或网页 。
稍后我会详细解释 。
-结束-
以上内容就是关于超级链接代码怎么写和超链接代码怎么写的精彩内容 , 是由小编整理编辑的 , 如果对您有帮助欢迎收藏转发...
- “学会说话只要几年,懂得沉默却要几十年”你认同吗?怎么看?
- 圣元荷兰乳牛荷慕奶粉怎么样 圣元荷兰乳牛奶粉好吗
- 纸制小白花的做法 小白花怎么做用纸做的
- 焦虑症该怎么调整自己的状态?
- 充电宝怎么用?充电宝什么牌子最好?
- 手机进水怎么办?手机进水屏幕失灵怎么办?
- 水垢怎么去除?热水瓶水垢怎么去除?
- 豆乳机怎么用?榨汁机和豆乳机的区别
- 怎么选择雨伞?使用雨伞的注重事项
- 洗脸盆安装方式-怎么选择洗脸盆?
特别声明:本站内容均来自网友提供或互联网,仅供参考,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。
