Menüleisten
17.12.2006 22:53:03
Rolf
ich versuche, in VBA neue Menüleisten zu generieren. So was schaffe ich zwar, wenn ich das händisch in Excel mache. Das soll dann so aussehen:
Wenn ich den Makrorecorder dabei laufen lasse, nimmt der mir folgendes auf:
Sub Makro1()
' Makro1 Makro
' Makro am 17.12.2006 von Rolf aufgezeichnet
On Error Resume Next
Application.CommandBars("neueLeiste").Delete
On Error GoTo 0
Application.CommandBars.Add ("neueLeiste")
Application.CommandBars("neueLeiste").Visible = True
Application.CommandBars("neueLeiste").Controls.Add Type:=msoControlPopup, _
Before:=1
Application.CommandBars("neueLeiste").Controls.Add Type:=msoControlPopup, _
Before:=2
Application.CommandBars("Untermenü 9").Controls.Add Type:=msoControlButton, _
Id:=2950, Before:=1
Application.CommandBars("Untermenü 9").Controls.Add Type:=msoControlPopup, _
Before:=2
Application.CommandBars("Untermenü 11").Controls.Add Type:=msoControlButton _
, Id:=2950, Before:=1
End Sub
(zugegeben, ich habe ich ersten 3 Programmzeilen beigefügt).
Schön. Nur, wenn ich das nun wieder ablaufen lasse, dann bekomme ich das folgende Ergebnis:
Die Beschriftungen der Buttons fehlen, und ich kann die Felder Anwendung1, Auswahl und Anwendung2 nicht öffnen.
Wie muss ich den Code denn nun verändern, damit ich wirklich das gewünschte Ergebnis bekomme? Bei Klick auf Anwendung1 und Anwendung2 will ich entsprechende Makros starten.
Danke für die Hilfe.
Rolf