in vba knop plaatsen op werkbalk

[gerger]

CommandBars("Menu Bar").Controls.Add _
Type:=msoControlButton , _
Before:= 1

Deze code plaatst een lege knop op de MenuBar,moet het wel een msoControlButton zijn?
Ik kan via VBA geen tekst (caption?) op de knop krijgen of er een macro aan koppelen (execute?).
Wie kan mij helpen?

 

[Big John]

Sub Menu_aanpassen()
'
' Maak een nieuw menu-item aan achter het hoofdmenu, zet hier een
' aantal items onder en wijs hier de macro's aan toe.
'
Set newmenu = ActiveMenuBar.Menus.Add("Nieuw Item")
With newmenu.MenuItems
.Add "Caption 1", "Macro1"
.Add "Caption 2", "Macro2"
.Add "-", ""
.Add "Caption 3", "Macro3"
End With
End Sub

Sub macro1()
.....
End Sub
Sub macro2()
.....
End Sub
Sub macro3()
....
End Sub

Wijzig de captions in de gewenste tekst en geef de macro's de gewenste naam. Na het starten van de sub Menu_aanpassen is er achter het laatste menuitem van de standaard menubalk een item bijgekomen met daaronder drie subitems.

 

[gerger]

de oplossing die ik uiteindelijk heb gevonden

Sub PlaatsNieuweKnop()
'--------------------

Dim NieuweKnop
Dim DeBar As String
DeBar = "Standard" 'of "Menu Bar"

Set NieuweKnop = CommandBars(DeBar).Controls.Add(Type:=msoControlButton, Before:=1)

With CommandBars(DeBar).Controls(1)
.Style = msoButtonCaption
.Caption = "Tekst op knop"
.OnAction = "NaamVanDeMacro"
End With

End Sub