Command Bars
 

With the macro below is there a way to add a custom button to the
Toolbar without deleing then recreating it?

Sub CreateOtherCommandBar_Test1()
On Error Resume Next
Application.CommandBars(TBN).Delete
On Error GoTo 0
With Application.CommandBars.Add
.Name = TBN
.Visible = True
With .Controls.Add(Type:=msoControlPopup, Befo=1)
.Caption = "Menu 1"
With .Controls.Add(Type:=msoControlButton, Befo=1)
.Caption = "Btn 1"
End With
With .Controls.Add(Type:=msoControlButton, Befo=2)
.Caption = "Btn 2"
End With
End With
End With
End Sub

Thank you for your help,
jfcby

Command Bars
 

jfcby,

Question:
With the macro above is there a way to add a custom button to the
Toolbar without deleing then recreating it?

Answer:

Yes, with the macro below.

<MACRO CODE

Sub CreateOtherCommandBar_AddToolBarControls()
'Add toolbar controls
Dim Cmdb
Set Cmdb = CommandBars(TBN).FindControl(Type:=msoControlPopup ,
ID:=1)

With Cmdb.Controls.Add(Type:=msoControlButton)
.Caption = "Btn 4"
End With
End Sub

<MACRO CODE

Thank you for your help and response,
jfcby

Command Bars
 

A better solution to add custom buttons to the toolbar:

<MACRO CODE

Sub CreateOtherCommandBar_AddToolBarControlsEx2()
'Add toolbar controls
Dim ctrl
On Error Resume Next
Set ctrl = CommandBars(TBN).Controls("Sort Options") _
'.Controls("My Personal Tools ")
On Error GoTo 0
If ctrl Is Nothing Then
MsgBox "Control does not exist"
Else
With ctrl.Controls.Add(Type:=msoControlButton)
.Caption = "Btn 4"
End With
End If

End Sub

<MACRO CODE

Command Bars
 

Check your other post.

jfcby wrote:

With the macro below is there a way to add a custom button to the
Toolbar without deleing then recreating it?

Sub CreateOtherCommandBar_Test1()
On Error Resume Next
Application.CommandBars(TBN).Delete
On Error GoTo 0
With Application.CommandBars.Add
.Name = TBN
.Visible = True
With .Controls.Add(Type:=msoControlPopup, Befo=1)
.Caption = "Menu 1"
With .Controls.Add(Type:=msoControlButton, Befo=1)
.Caption = "Btn 1"
End With
With .Controls.Add(Type:=msoControlButton, Befo=2)
.Caption = "Btn 2"
End With
End With
End With
End Sub

Thank you for your help,
jfcby

--

Dave Peterson