CommandBarControl
16.07.2003 11:53:53
Andy
ich habe ein kleines Problem. Ich habe mir eine Commandbar kreirt "AFTools". Leider kann ich da im Nachhinein keine weitere Schaltfläche einbauen. Bisher sieht mein Code so aus:
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
Wie kann ich also in einem neuen Makro diese Schaltfläche ("AFTools") ansteuern und einen neuen Button einfügen?
Grüße
Andy