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
|
