Kontextmenü erweitern (VBA)

04.04.1999


Auch in das Kontextmenü können Sie die Aufrufe Ihrer Prozeduren legen.

Hierzu ist es ratsam, ein
Add-In zu erstellen,
welches beim Starten von Excel den gewünschten Eintrag im Kontextmenü anlegt.

Sub KontextEintragHinzufügen()
   Dim Menüpunkt As Object
   'dieser Text wird im Kontextmenü erscheinen:
   KontextMenüeintrag = "---> &Ein Test <---"
   'Fehler...:
   On Error GoTo err
   '... beim Eintrag löschen...:
   Application.CommandBars("Cell").Controls(KontextMenüeintrag). _
     Delete
   '...dann hier weitermachen:
   err:
   'neuen Eintrag erstellen:
   Set Menüpunkt = CommandBars("Cell").Controls.Add
   With Menüpunkt
      'Text im Kontextmenü:
      .Caption = KontextMenüeintrag
      'welche Prozedur soll beim Auswählen ausgeführt werden:
      .OnAction = "Mach_Was"
   End With
End Sub

Diese Prozedur wird durch den neuen Kontextmenüeintrag gestartet:

Sub Mach_Was()
   MsgBox "Hier ist Prozedur Mach_Was", vbInformation, "Demo"
End Sub

Nun müssen Sie noch erreichen, dass die Prozedur beim Öffnen
der Datei ausgeführt wird:
Doppelklicken Sie nun im Visual Basic Explorer auf "DieseArbeitsmappe"
und fügen den folgenden Code ein:

Private Sub Workbook_Open()
   Call KontextEintragHinzufügen
End Sub

 

Download - 13 KB