kann man direkt aus einem Button in einer Symbolleiste einem Hyperlink
folgen ohne den Umweg über ein Makro und FollowHyperlink?
Wenn ja, wie macht man das?
mfg Fred
Sub test()
Set mybar = CommandBars _
.Add(Name:="Custom", Position:=msoBarTop, _
Temporary:=True)
mybar.Visible = 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.de"
End If
End Sub