【VBA研究】增加超级链接

最新推荐文章于 2024-06-28 10:53:13 发布

宋哥

最新推荐文章于 2024-06-28 10:53:13 发布

阅读量5.5k

点赞数

分类专栏： VBA_Excel

本文链接：https://blog.csdn.net/iamlaosong/article/details/51980553

版权

VBA_Excel 专栏收录该内容

120 篇文章 72 订阅

订阅专栏

iamlaosong文

做称重拍照工具时，为每个邮件增加一个超级，指向这个邮件的图片，为此，我录制了一下增加超级链接的宏，代码如下：

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B3").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "Pic20160628\LS978031583CN.jpg", TextToDisplay:="LS978031583CN"
    Range("B3").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

其中Hyperlinks.Add语句是增加链接，Hyperlinks(1).Follow语句则是显示链接的图片。Hyperlinks.Add的参数Anchor表示铆接单元格，Address表示链接地址，TextToDisplay则是链接显示的内容，如果链接本工作簿中其它工作表的内容，则用SubAddress参数，如SubAddress:="Sheet1!A2"。

按照工具的要求，增加链接的语句可以改写为：

Sheets("记录").Hyperlinks.Add Anchor:=Cells(5, 2), Address:= _
"Pic20160628\EV941984153CN.jpg"
工具是用VB写的，其代码为：

PicDir = "Pic" & Format(CurDate, "yyyymmdd") & "\" '增加图片链接
xlSheet.Hyperlinks.Add Anchor:=Cells(Maxrow, 2), Address:=PicDir & EmsCode & ".jpg"

参见“邮件称重拍照记录工具”文中的代码：点击打开链接