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