Hyperlinks.Add 方法

该方法用于添加一个超链接。

Function Add(Anchor As Object,

                 Address As String,

                 [SubAddress As VARIANT],

                 [ScreenTip As VARIANT],

                 [TextToDisplay As VARIANT]) As Object

Hyperlinks.Add 方法参数说明

Anchor参数 Object 类型，必需。表示超链接的位置，可为 Range 对象。

Address参数   String 类型，必需，表示超链接的地址。

SubAddress参数    Variant 类型，可选。表示超链接的子地址。

ScreenTip参数     Variant 类型，可选，表示当鼠标指针停留在超链接上时所显示的屏幕提示。

TextToDisplay参数     String 类型，可选。表示要显示的超链接的文本，默认值为超链接的地址。

Hyperlinks.Add 方法返回值

返回值为一个Hyperlink 类型。

Hyperlinks.Add 方法样例

' 本示例用于在活动工作表的“A1”单元格添加一个超链接。

Sub AddExample()

    With ThisWorkbook.ActiveSheet

        .Hyperlinks.Add Anchor:=.Range("A1"), _

        Address:="http://www.kingsoft.com", _

        ScreenTip:="金山软件", _

        TextToDisplay:="Kingsoft"

    End With

End Sub