Kontextmenü - Standard
23.12.2004 10:29:23
Joe
Bin grad dabei mir mein eigenes Kontextmenü zu erstellen.
Hab dazu erst das alte gelöscht und dann verschiedene neue Punkte wie Speicher oder Füllfarbe eingefügt. Jetzt möchte ich jedoch das Standartkontextmenü( Ausschneiden, Kopieren Inhalte einfügen etc. )trotzdem wieder eingeblendet haben + meine eigenen commandbars.
Ich habe jedoch nicht ID.Nummern von allen Commandbars.
Gibt es eine Möglichkeit das komplette Standartkontextmenü wieder einzublenden?
Wer nett wenn mir jemand helfen könnte.
Gruß Joe
Hier mein Programmcode:
Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim NeuesMenü As CommandBarButton
With CommandBars("Cell")
Do While .Controls.Count > 0
On Error Resume Next
.Controls(1).Delete
Loop
'Set NeuesMenü = .Controls.Add(ID:=21) ' Ausschneiden
'Set NeuesMenü = .Controls.Add(ID:=19) ' kopieren
'Set NeuesMenü = .Controls.Add(ID:=22)
'Set NeuesMenü = .Controls.Add(ID:=295)
'Set NeuesMenü = .Controls.Add(ID:=47)
Set NeuesMenü = .Controls.Add(msoControlButton)
With NeuesMenü
.Caption = "&Urlaub (grün)"
.OnAction = "farbe_grün"
.FaceId = 2168
End With
Set NeuesMenü = .Controls.Add(msoControlButton)
With NeuesMenü
.Caption = "&Gleitzeit (rot) "
.OnAction = "farbe_rot"
.FaceId = 2168
End With
Set NeuesMenü = .Controls.Add(msoControlButton)
With NeuesMenü
.Caption = "&Krank (gelb) "
.OnAction = "farbe_gelb"
.FaceId = 2168
End With
End With
End Sub
Anzeige