HyperlinkType 属性

       

设置或返回与指定命令栏按钮相关联的超链接的类型。MsoCommandBarButtonHyperlinkType 类型,可读写。

示例

本示例检查命令栏“Custom”上指定命令栏按钮的 HyperlinkType 属性。如果 HyperlinkType 设为 msoCommandBarButtonHyperlinkNone,那么本示例将其设为 msoCommandBarButtonHyperlinkOpen,并且将 URL 设置为 www.microsoft.com。

Set myBar = CommandBars _
    .Add(Name:="Custom", Position:=msoBarTop, _
    Temporary:=True)
Set myButton = myBar.Controls.Add(Type:=msoControlButton)
With myButton
    .FaceId = 277
    .HyperlinkType = msoCommandBarButtonHyperlinkNone
End With
If myButton.HyperlinkType <> _
    msoCommandBarButtonHyperlinkOpen Then
    myButton.HyperlinkType = _
        msoCommandBarButtonHyperlinkOpen
    myButton.TooltipText = "www.microsoft.com"
End If