Excelmenü via VBA ausblenden, aber wie?
24.02.2006 19:15:40
Uwe
Ich kenne einfach den Befehl, den richtigen, (noch) nicht. Jetzt aber zunächst einmal einen Ausschnitt dessen, was ich derzeit bereits "verbrochen" habe... Hier wird der Menüpunkt "Wissen" einfach (leider) nur dem Standardmenü hinzugefügt.
Sub auto_Open()
With Application.CommandBars.ActiveMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
On Error GoTo 0
.Caption = "Wissen"
With .Controls.Add
.Caption = "Allgemeine Rundverfügungen"
.OnAction = ""
End With
With .Controls.Add
.Caption = "Rudschreiben Arbeitsrecht"
.OnAction = ""
End With
With .Controls.Add(Type:=msoControlPopup)
.Caption = "SAM"
With .Controls.Add
.Caption = "Handbuch"
.OnAction = ""
End With
With .Controls.Add
.Caption = "Tagesbericht"
.OnAction = ""
End With
End With
With .Controls.Add
.Caption = "Tarifverträge"
.OnAction = ""
End With
End With
End Sub
Der Code darf hierbei grundätzlich nur ergänzt, nicht aber in der zu erstellenden Menüstruktur (Untermenüs) verändert werden!
So wie ich mich kenne, war das für heute MEINE "dumme" Frage... oder die nächste Brille ist meine?