Vorhandene Kontextmenü's erweitern

25.01.2002


 Unterscheiden Sie zwischen den verschiedenen Arten
der Kontextmenü's:
Zell-Kontextmenü, Spalten-Kontextmenü und Zeilen-Kontextmenü

Diese werden unterschiedlich angesprochen.

Kontextmenü einer Spalte: 
Const t = "Meine eigene Routine"
Sub Kontextmenü_Erweitern()
    Call Kontext_Löschen
    Dim Kontext As Object
    Set Kontext = CommandBars("Column").Controls.Add
    Kontext.BeginGroup = True
    With Kontext
        .Caption = t
        .OnAction = "MachWas"
        .FaceId = 122
    End With
End Sub
Sub Kontext_Löschen()
   On Error Resume Next
   CommandBars("Column").Controls(t).Delete
End Sub
Sub MachWas()
    MsgBox "Hallo, da bin ich !", vbExclamation
End Sub
 

 

Kontextmenü einer Zeile: 
Const t = "Meine eigene Routine"
Sub Kontextmenü_Erweitern()
    Call Kontext_Löschen
    Dim Kontext As Object
    Set Kontext = CommandBars("Row").Controls.Add
    Kontext.BeginGroup = True
    With Kontext
        .Caption = t
        .OnAction = "MachWas"
        .FaceId = 122
    End With
End Sub
Sub Kontext_Löschen()
   On Error Resume Next
   CommandBars("Row").Controls(t).Delete
End Sub
Sub MachWas()
    MsgBox "Hallo, da bin ich !", vbExclamation
End Sub

 

Kontextmenü einer Zelle: 
Const t = "Meine eigene Routine"
Sub Kontextmenü_Erweitern()
    Call Kontext_Löschen
    Dim Kontext As Object
    Set Kontext = CommandBars("Cell").Controls.Add
    Kontext.BeginGroup = True
    With Kontext
        .Caption = t
        .OnAction = "MachWas"
        .FaceId = 122
    End With
End Sub
Sub Kontext_Löschen()
   On Error Resume Next
   CommandBars("Cell").Controls(t).Delete
End Sub

Sub MachWas()
    MsgBox "Hallo, da bin ich !", vbExclamation
End Sub