Hallo,
ich erzeuge in meinem VBA Code ein Kontexmenü mit zwei msoControlButtons und einer msoControlEdit Textbox.
Wenn ich den Code ausführe und probehalber mit .ShowPopup() aufrufe, erscheinen die Buttons und die Textbox ohne Probleme.
Wenn ich aber nun das Kontextmenü über die Eigenschaften des Formulars einem Control zuweise, das erscheint die Textbox nicht:
Formular: Kontextmenü --> ja
Control: Kontextmenüleiste --> "ShortcutMenu"
Führe ich nun den Code aus erscheinen nur noch die beiden Buttons im Contextmenü. Beim Debuggen fällt auf, dass die msControlEdit als Item im Kontextmenü aufgeführt ist.
Hier der Code:
Set cmdBarShortcutMenu = CommandBars.Add("ShortcutMenu", msoBarPopup, False, False)
With cmdBarShortcutMenu.Controls
.Add msoControlButton, 210
.Add msoControlButton, 211
Set cmdBarControl = .Add(msoControlEdit)
With cmdBarControl
.Caption = "Filtern"
.OnAction = "=Suche()"
.Enabled = True
.Visible = True
.SetFocus
End With
End With
cmdBarShortcutMenu.Visible = True
Kann mit jemand helfen?
Vielen Dank.
JeanneD'Arc