Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Kontextmenü-Einträge

Kontextmenü-Einträge
25.08.2008 08:35:00
Andreas
Hallo,
ich habe ein "Problem" mit meinen Kontextmenü-Einträgen. Ich kann welche hinzufügen, allerdings bekomme ich es nicht hin, dass es mir meine Einträge durch eine Trennlinie von den restlichen Einträgen trennt. Ich möchte nach meinem letzten Eintrag eine Trennlinie einbauen, aber diese wird stets VOR meinem letzten Kontextmenü-Eintrag angelegt.
Anbei mein Quellcode für das Hinzufügen (mit falscher Trennlinien-Position):

Sub AddContextCmd()
Dim cb As CommandBar
Dim ctl As CommandBarControl
Set cb = CommandBars("Cell")
Set ctl = cb.Controls.Add(before:=1)
With ctl
.Caption = "Anwesend"
.OnAction = "Anwesend"
End With
Set cb = CommandBars("Cell")
Set ctl = cb.Controls.Add(before:=2)
With ctl
.Caption = "Urlaub"
.OnAction = "Urlaub"
End With
Set cb = CommandBars("Cell")
Set ctl = cb.Controls.Add(before:=3)
With ctl
.Caption = "Krankheit"
.OnAction = "Krankheit"
End With
Set cb = CommandBars("Cell")
Set ctl = cb.Controls.Add(before:=4)
With ctl
.Caption = "Wochenende"
.OnAction = "Wochenende"
End With
Set cb = CommandBars("Cell")
Set ctl = cb.Controls.Add(before:=5)
With ctl
.BeginGroup = True
.Caption = "Abwesend"
.OnAction = "Abwesend"
End With
End Sub


Ganz edel wäre es, wenn ich eine Untergruppe einbauen könnte, die ich "Status" nenne und es mir meine Einträge in dieser Untergruppe anzeigt. Weiß jemand wie das funktioniert?
Danke im Voraus!
Mfg. Andi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kontextmenü-Einträge
25.08.2008 09:34:48
Matthias
Hallo Andreas
vieleicht so?
Userbild
Gruß Matthias
AW: Kontextmenü-Einträge
25.08.2008 11:42:09
Rudi
Hallo,

Sub AddContextCmd()
Dim cb As CommandBar
Dim ctl As CommandBarControl, ctlPop As CommandBarPopup
Dim i As Integer, arrControls
Const strControl = "Status"
arrControls = Array("Anwesend", "Urlaub", "Krankheit", "Wochenende", "Abwesend")
Set cb = CommandBars("Cell")
On Error Resume Next
cb.Controls(strControl).Delete
On Error GoTo 0
Set ctlPop = cb.Controls.Add(msoControlPopup, , , 1, True)
ctlPop.Caption = strControl
For i = 0 To UBound(arrControls)
Set ctl = ctlPop.Controls.Add
With ctl
.Caption = arrControls(i)
.OnAction = arrControls(i)
End With
Next i
cb.Controls(2).BeginGroup = True
End Sub


Gruß
Rudi

Anzeige
AW: Kontextmenü-Einträge
25.08.2008 21:21:16
Andreas
Hi!
Danke, das mit dem Untermenü funktioniert super!
Mfg. Andreas

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige