Gruppe
Menue
Bereich
Context
Thema
Zellkontextmenü löschen und aufbauen
Problem
Wie kann ich die Menüpunkte des eingebauten Zellkontextmenüs komplett entfernen und eigene Menüpunkte einfügen.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ResetContext
End Sub
StandardModule: basMain
Sub EditContext()
Dim oBtn As CommandBarButton
With Application.CommandBars("Cell")
Do While .Controls.Count > 0
.Controls(1).Delete
Loop
Set oBtn = .Controls.Add
End With
With oBtn
.Caption = "MeinBefehl"
.OnAction = "MeinMakro"
End With
End Sub
Sub ResetContext()
Application.CommandBars("Cell").Reset
End Sub
Sub MeinMakro()
MsgBox "Makroaufruf aus dem Zellkontextmenü!"
End Sub