Kontextmenü rechte Maustaste belegen
02.02.2007 15:22:06
Heckel
ich habe eine Frage zu der Problemstellung:
Kontextmenü rechte Maustaste belegen von Emil vom 06.07.2006 20:48:47
Sub Kontext_ändern()
Dim c As Object
With CommandBars("Cell")
For Each c In .Controls
c.Delete
Next
Set c = .Controls.Add(1)
With c
.Caption = "surprise"
.OnAction = "Testmakro"
End With
End With
End Sub
''==========================================
Sub Kontext_reset()
CommandBars("Cell").Reset
End Sub
''==========================================
Sub Testmakro()
MsgBox "Test"
End Sub
''==========================================
Das Ganze funktioniert wunderbar, nur lediglich für einen Befehl (hier: "surprise") mit der rechten Maustaste. Weiß jemand, wie man mehrere
Befehle in die rechte Maustaste hineinbekommt, sowie in der Standardbelegung?
MfG Gerald
Anzeige