CommandBarControl

Sub MenueEinfügen()
Dim Schaltfläche As Integer
Dim Schaltfläche_hilfe As Integer
Dim MenueNeu As CommandBarControl
Dim button As CommandBarControl
Schaltfläche = Application.CommandBars(1).Controls.Count        'Abzählen der tatsächlich
'vorhandenen Commandbars
'in der persönlichen Excel
'Oberfläche
Schaltfläche_hilfe = Application.CommandBars(1).Controls(Schaltfläche).Index
'Der Befehl Controls erlaubt
'es mir alle Commandbars in
'der Leiste abzufragen
Set MenueNeu = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, Before:=Schaltfläche_hilfe, temporary:=False)
'Einfügen der neuen Schaltfläche
'vor das Hilfe Menü
MenueNeu.Caption = "AFTools"                                    'Das Label soll ... heissen
Set button = MenueNeu.Controls.Add(Type:=msoControlButton)      'Einfügen einer Auswahlfläche
'in die neue Schaltfläche
With button
.Caption = "CSVtransfe&r 1.0"                               'Schrift auf der Unterschaltfläche
.Style = msoButtonIconAndCaption                            'Vorraussetzung, dass dem Schaltpunkt ein Symbol zugeordnet werden kann
.FaceId = 350                                               'Symbol Pfeil
.OnAction = "StartMacro1"                                   'Ansprechen des Makros "StartMakro1"
BeginGroup = True                                           'falls es mehrere Schaltflächen geben wird, dann wird diese als Gruppe alleine bleiben
End With
End Sub