Assign hyperlink to new commandbar control
I trust this has not been asked recently and I've mised it in my search
I am creating a new popup on the main Excel toolbar through an auto-open
macro.
Whenit comes to the "on action" for the command bar buttons on this popup i
want to be able to assign a hyperlink just as I would if I were using the
"customize" process, right-clicking on the object and selecting "assign
hyperlink". The hyperlink is required to take user to a file located on our
network.
I'm running up blind alleys trying to find out how to do this and would
appreciate any help
Regards
Michael Bond
Copy of sample code :
Sub auto_open()
Set fbMenuBar = CommandBars.ActiveMenuBar
Count = 0
For Each c In fbMenuBar.Controls
Count = Count + 1
Next
Set fbMenu = fbMenuBar.Controls.Add(Type:=msoControlPopup, Befo=Count-1,
Temporary:=True)
fbMenu.Caption = "Football"
Set ctrl1 = fbMenu.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "Fixtures"
ctrl1.TooltipText = "Fixtures"
ctrl1.Style = msoButtonCaption
ctrl1.OnAction = ?????
End Sub
|