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
�
|
