Eigene Menüleisten im Excel erstellen
21.09.2005 11:14:15
Stefan
Meine Frage wäre folgende: Ich möchte im Excel meine Eigene Menüleiste erstellen. dh: Alte Leiste weg, neue Leiste her
nur trat bis jetzt immer folgendes Problem auf:
Hab im Workbook activate folgenden Code geschrieben:
Sub Wegdamit()
Dim ctlBarControl As CommandBarControl
Set ctlBarControl = Application.CommandBars(1)_
.Controls("Datei")
ctlbarControl.Visible = False
End Sub
Funktioniert auch soweit, hab des mit den ganzen Menüs gemacht, dh. es bleibt eine Leere Menüleiste über, nun bin ich hergegangen und hab
Sub AddMenuBar()
Dim cmdMenuBar As CommandBar
Application.ScreenUpdating = False
Set cmdMenuBar = Application.CommandBars.Add( _
Name:="MyMenuBar", _
Position:=msoBarTop, _
MenuBar:=True, _
Temporary:=True)
cmdMenuBar.Visible = True
Application.ScreenUpdating = True
End Sub
Gecoded, fazit....es funzt net!
Hab ihr einen Ahnung wo da der Wurm is!
Danke schon im Voraus für die Hilfe!
Grüße Stef