KontextMenus ändern
01.08.2006 08:56:58
Martin
Ich habe mit Hilfe des Forums rausgekriegt wie man die KontextMenus ändert und wie man eigene Makros miteinbaut. Ich möchte aber, dass meine Makros ganz oben auf der Liste stehen. Der Code sieht so aus:
Sub KontextMenueAendern()
On Error Resume Next
'Kontext-Menü zur Bearbeitung von Zellen:
Set cBar = Application.CommandBars("Cell")
'CommandBarButtons deaktivieren:
cBar.Controls("Ausschneiden").Visible = False
cBar.Controls("Kopieren").Enabled = True
cBar.Controls("Einfügen").Enabled = True
cBar.Controls("Zellen einfügen...").Visible = True
cBar.Controls("Zellen löschen...").Visible = False
cBar.Controls("Zellen formatieren...").Visible = False
cBar.Controls("Dropdown-Auswahlliste...").Visible = False
cBar.Controls("Überwachung hinzufügen").Visible = False
cBar.Controls("Liste erstellen...").Visible = False
cBar.Controls("Hyperlink...").Visible = False
cBar.Controls("Nachschlagen...").Visible = False
'Neuen CommandBarButton hinzufügen:
Set btnKontext = cBar.Controls.Add
With btnKontext
.Caption = "Startseite"
.OnAction = "Hauptmenü"
.FaceId = 1548
.BeginGroup = False
End With
'Neuen CommandBarButton hinzufügen:
Set btnKontext = cBar.Controls.Add
With btnKontext
.Style = msoButtonIconAndCaption
.Caption = "&Eingaben Rückgängig Machen"
.OnAction = "EditingMode"
.FaceId = 128
.BeginGroup = True
End With
End Sub
Ich möchte aber, dass die Eintragungen "Startseite" und "Eingaben Rückgängig Machen" ganz oben stehen. Wer weiß ob das geht?