paddy69
04-25-2008, 05:47 AM
I've a code to add a button to a bar every time a file is opened. However for some reason it keeps adding the same button to the same bar if I open other or new files within the same session. I thought the if my button is nothing would handle this issue but unfortunately it doesn't. Can anyone help?
Sub AddCustomBar()
Dim MyBar As CommandBar
Dim MyButton As CommandBarButton
On Error Resume Next
Set MyBar = CommandBars("Custom Bar")
If MyBar Is Nothing Then
Set MyBar = CommandBars.Add(Name:="Custom Bar", Position:=msoBarTop, Temporary:=True)
MyBar.Visible = True
End If
Set MyButton = MyBar.Controls("MyButton")
If MyButton Is Nothing Then
Set MyButton = MyBar.Controls.Add(Type:=msoControlButton)
With MyButton
.Style = msoButtonCaption
.Caption = "Linked Tasks"
.OnAction = "LinkedTasks"
End With
End If
End Sub
Sub AddCustomBar()
Dim MyBar As CommandBar
Dim MyButton As CommandBarButton
On Error Resume Next
Set MyBar = CommandBars("Custom Bar")
If MyBar Is Nothing Then
Set MyBar = CommandBars.Add(Name:="Custom Bar", Position:=msoBarTop, Temporary:=True)
MyBar.Visible = True
End If
Set MyButton = MyBar.Controls("MyButton")
If MyButton Is Nothing Then
Set MyButton = MyBar.Controls.Add(Type:=msoControlButton)
With MyButton
.Style = msoButtonCaption
.Caption = "Linked Tasks"
.OnAction = "LinkedTasks"
End With
End If
End Sub