Office VBA教程:HyperlinkType属性

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

MsoCommandBarButtonHyperlinkType 可为以下 MsoCommandBarButtonHyperlinkType 常量之一:
msoCommandBarButtonHyperlinkInsertPicture
msoCommandBarButtonHyperlinkNone
msoCommandBarButtonHyperlinkOpen

VBA示例

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

上页:Office VBA教程:HTMLProjectItems属性 下页:Office VBA教程:Icon属性

Office VBA教程:HyperlinkType属性

Office VBA教程:Icon属性 Office VBA教程:Id属性
Office VBA教程:Index属性 Office VBA教程:InitialFileName属性
Office VBA教程:InitialView属性 Office VBA教程:Introduction属性
Office VBA教程:IsCertificateExpired属性 Office VBA教程:IsCertificateRevoked属性
Office VBA教程:IsOpen属性 Office VBA教程:IsPriorityDropped属性
Office VBA教程:Issuer属性 Office VBA教程:IsValid属性
Office VBA教程:Item属性 Office VBA教程:KeyboardShortcutTips属性
Office VBA教程:Labels属性 Office VBA教程:Language属性
Office VBA教程:LanguageID属性 Office VBA教程:LanguagePreferredForEditing属性
Office VBA教程:LargeButtons属性 Office VBA教程:LastModified属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号