PDA

View Full Version : Solved: Add button to bar



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

Bob Phillips
04-25-2008, 05:54 AM
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("Linked Tasks")

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