Benutzerdefinierte Menus unter Excel 2010
Peter
Bei uns ist ein Wechsel von Office 2003 zu Office 2010 angesagt.
Ich habe schon ein paar Tests gemacht mit meinen Dateien mit Makros und diese sind insgesamt sehr zufriedenstellend.
Ich habe eine spezifische Frage zu den benutzerdefinierten Menues. In Excel 2003 sind die jeweils als Menue ganz rechts erschienen (mit untenstehendem Code).
Der gleiche Code bewirkt, dass das entsprechende Menue nun ein Submenue von "AddIns" ist. kennt jemand eine Möglichkeit, dass das benutzerdefinierte Menue nicht als Untermenue von "AddIns" erscheint, sondern "prominent" als eigenes Menue ganz rechts erscheint?
Bin gespannt, ob es eine Lösung gibt.
Gruss, Peter
Const MenueName = "&Spezialmenue"
Const Befehl1 = "&1. Alle Tabellen einblenden"
Const Befehl2 = "&2. Nicht benötigte Tabellen ausblenden"
Sub Menue_Erstellen()
Dim MB As Object, MeinMenue As Object, Befehl As Object
Call Menue_Loeschen
Set MB = CommandBars.ActiveMenuBar
Set MeinMenue = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenue.Caption = MenueName
Set Befehl = MeinMenue.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl1
.OnAction = "Machwas1"
End With
Set Befehl = MeinMenue.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl2
.OnAction = "Machwas2"
End With
Else
End If
End Sub
Sub Menue_Loeschen()
On Error Resume Next
CommandBars.ActiveMenuBar.Controls(MenueName).Delete
End Sub
Sub Machwas1()
Call TabEinblenden
End Sub
Sub Machwas2()
Call TabAusblenden
End Sub
Anzeige