Propiedad HyperlinkType
Establece o devuelve el tipo de hipervínculo asociado con el botón de la barra de comandos. MsoCommandBarButtonHyperlinkType de Lectura/Escritura.
MsoCommandBarButtonHyperlinkType puede ser una de estas constantes de MsoCommandBarButtonHyperlinkType. |
msoCommandBarButtonHyperlinkInsertPicture |
msoCommandBarButtonHyperlinkNone |
msoCommandBarButtonHyperlinkOpen |
Ejemplo
Este ejemplo comprueba la propiedad HyperlinkType para el botón especificado de la barra de comandos en la barra de comandos denominada "Custom". Si HyperlinkType se establece en msoCommandBarButtonHyperlinkNone, el ejemplo establecerá la propiedad en msoCommandBarButtonHyperlinkOpen y la URL en 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