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
|