王兴敏
四川省煤田测绘工程院，四川 成都 610072
摘要：本文介绍了在WPS下利用宏录制功能为对应文字批量添加超级链接的方法和步骤。
关键词：WPS；宏；超级链接；批量
一、引言
WPS是我国自主知识产权的办公自动化应用程序，其人性化的界面，丰富的拓展功能已受到越来越多的关注，通过安装VBA环境，WPS已具备了同Microsoft Office Excel电子表格相类似的功能，用户群体不断扩大，尤其在工程领域，得益于编程环境的拓展，WPS电子表格可以应用的领域得到进一步拓宽。
在地理信息系统行业，经常使用到数据、图、表功能，有的项目图片很多，而且需要与表格关联，如果一味将图片插入电子表格，将造成电子表格负载过大，打开出现困难。因此，插入超级链接使表格项和图片关联就成为最佳的选择方案，既解决了图与表不联动的问题，又解决了电子表格存储容量过大的问题。本文将通过VBA和超级链接的使用实现表格和图片的关联对应。
二、方法步骤
基本思路为：先通过录制新宏的功能添加一段超级链接的宏代码，再根据项目实际情况用循环语句修改宏代码为需要的功能，实现批量添加。
1. 确定需求
现有一张Excel表，其中某列编号需要加上超级链接与对应图片联动，图片统一放在某文件夹下，图片名称分别为：“Excel表中图片名称列名称.jpg”，需要实现点击表格中的超级链接，即弹出显示对应文件夹中的同名图片。
.png)
2. 录制一个添加超级链接的宏代码
点击顶部菜单栏“开发工具”，选择弹出工具栏上的“录制新宏”。
.png)
选中C2单元格，添加超级链接，指定到同目录下的文件夹内同名图片。添加完成后，点击“录制新宏”同一位置处的“停止录制”，查看示例代码如下：
Range("C2").Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:="新建文件夹\GB01001.jpg", SubAddress:="", ScreenTip:="", TextToDisplay:="GB01001"
由于电子表格和存放图片的文件夹在同级目录下，因此地址项“Address:”只列出了相对路径。点击已添加超级链接的C2单元格，弹出文件夹内同名图片，示例如下图：
.png)
3. 根据项目需要修改宏代码
上一步实现的是添加1个单元格的超级链接，要想批量添加超级链接，需要通过循环语句来实现，即以循环语句控制C列单元格变量每次向下增加一行。核心示例代码如下：
For i = 2 To n
s1 = Cells(i, 3).Text
s2 = s1 & ".jpg"
s3 = "D:\新建文件夹\" & s2
Cells(i, 3).Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:=s3, SubAddress:="", ScreenTip:="", TextToDisplay:=s1
Next
通过循环语句，最终实现批量添加超级链接，已添加超级链接的表格示例如下：
.png)
需要注意的是，此处添加超级链接的表格值与图片名称一致，如果不一致，也必须有较强的规律性（如：关联关系或逻辑、顺序关系），否则不适宜此种方法进行批量添加。
四、结语
本文介绍的批量添加超级链接的方法在一定程度上解决了具有较强关联关系的规律性图、表的关联问题，提高了工作效率，有效避免了大量插入图片到电子表格造成的打不开、难打开、打开慢等问题，对于地理信息的批量关联处理有一定的借鉴意义。
参考文献：
[1] 刘炳文.VB程序设计教程.北京：清华大学出版社 2006.8
[2] 黎明，刘成安.Visual Basic程序设计教程.成都：电子科技大学出版社 2004.3
[3] 马维峰编著. Excel VBA应用开发从基础到实践. 北京：电子工业出版社2006.8