HyperlinkType 属性

优质

小牛编辑

120浏览

2023-12-01

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

MsoCommandBarButtonHyperlinkType 可为以下 MsoCommandBarButtonHyperlinkType 常量之一：msoCommandBarButtonHyperlinkInsertPicturemsoCommandBarButtonHyperlinkNonemsoCommandBarButtonHyperlinkOpen

示例

本示例检查命令栏“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