如何用vba在excel、word中创建超链接?

excel  中可以创建超链接用以链接到网页、文件夹中的文件、电子邮件以及当前工作簿中的其它单元格。

在excel中不仅可以在单元格中创建超链接，还可以在excel单元格上的图形上创建超链接。

本文主要介绍如何用vba在单元格中创建超链接的方法，在图形上创建超链接的方法相似。

用vba在单元格中创建超链接主要是利用Hyperlinks对象的Add方法，利用这个方法可以在单元格或者图形中添加超链接。

它的语法如下:

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

其中expression 表示一个返回  Hyperlinks 对象的变量.

Anchor参数表示超链接的宿主，也就是这个超链接的放置点，比如单元格A1或者图片1，这个是必须参数。

Address参数表示外部的超链接地址，也就是要链接到的目标地址。比如链接到网址”http://www.exceloffice.net/”，这个也是必须参数。

SubAddress参数表示在excel工作簿内建立超链接时，要链接到的目标单元格区域。比如在单元格A2创建超链接链接到单元格A5。

以下是一段在excel中创建超链接的示例代码：

Sub QQ1722187970()
    With Sheet1
        '在单元格A1创建超链接，单击超链接访问http://www.exceloffice.net/
        .Hyperlinks.Add anchor:=.Range("a1"), Address:="http://www.exceloffice.net/", TextToDisplay:="ExcelOffice网站"
        '在单元格A2创建超链接，单击超链接跳转到单元格A5,注意anchor和Address参数是必须的，其它参数都是可选的
        .Hyperlinks.Add anchor:=.Range("a2"), Address:="", SubAddress:="Sheet1!A5", TextToDisplay:="链接到单元格A5"
    End With
End Sub

在word中用vba创建超链接与在excel中类似，语法一模一样，只是word中可以返回Hyperlinks集合的对象有Document、Range、Selection。

以下是一段在word中创建超链接的示例代码：

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    With oDoc
        .Hyperlinks.Add Word.Selection.Range, "http://www.exceloffice.net/"
    End With
End Sub