Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kontextmenü - Standard

Kontextmenü - Standard
23.12.2004 10:29:23
Joe
Hi Leute,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kontextmenü - Standard
Joe
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige