设置或返回与指定命令栏按钮相关联的超链接的类型。MsoCommandBarButtonHyperlinkType 类型,可读写。
MsoCommandBarButtonHyperlinkType 可为以下 MsoCommandBarButtonHyperlinkType 常量之一: |
msoCommandBarButtonHyperlinkInsertPicture |
msoCommandBarButtonHyperlinkNone |
msoCommandBarButtonHyperlinkOpen |
本示例检查命令栏“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