Re: Benutzerführung über eigene Menüleiste
06.12.2002 20:10:10
Michael Huith
mit
Set ComBar = ComBarNeu("DynLiQui", Oben, True, True)
wobei die Funktion so aussieht:
Public Function ComBarNeu(ComBarName As String, _
Pos As Pos, _
Ersetzen As Boolean, _
temporär As Boolean) As CommandBar
Dim ComBar As CommandBar
On Error Resume Next
Set ComBar = Application.CommandBars(ComBarName)
Call ComBarLöschen(ComBar) '
Set ComBarNeu = Application.CommandBars.Add(Name:=ComBarName, _
Position:=Pos, _
MenuBar:=Ersetzen, _
temporary:=temporär)
End FunctionIch habe diese Zusammenstellung mal irgendwo gefunden, weiß nicht mehr wo, ist aber sehr elegant einzusetzen.
Das Merkmal "Menubar:=Ersetzen" schaltet das Standardmenü ab,
das Merkmal "temporary:=temporär" legt die neue Menüleiste nicht dauerhaft an, sondern löscht sie automatisch wieder beim Entladen der Mappe.