none
Textbox wird im Kontextmenü nicht angezeigt

    Frage

  • 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

    Montag, 31. März 2014 08:21

Alle Antworten