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