eigenes Menü rechte Maustaste
16.04.2020 19:39:51
Wolfgang
den nachfolgenden Code konnte ich hier im Forum finden. Ich versuche nun verzweifelt, ihn zu ergänzen und noch mehr Menüpunkte einzubauen. Ich habe das einmal exemplarisch mit der Ergänzung Test versucht, es tut sich dabei aber nichts mehr. Für Hilfestellung wäre ich sehr dankbar.
Viele Grüße - Wolfgang
Sub EditContext()
On Error Resume Next
ResetContext
With Application.CommandBars("Cell")
Do While .Controls.Count > 0
.Controls(1).Delete
Loop
Set oBtn1 = .Controls.Add
Set oBtn11 = .Controls.Add
End With
With oBtn1
.BeginGroup = True
.Caption = "Bildungsurlaub"
.OnAction = "Bildungsurlaub1"
.FaceId = 81
With oBtnl1
'.BeginGroup = True
.Caption = "Test"
.OnAction = "Test1"
.FaceId = 71
End With
End With
End Sub