Ich möchte gern in einem Textfeld von einem Userform mit der rechten Maustaste ein Kontextmenü erstellen. Mit den alten
Artikeln in der Newsgroup komme ich bisher nicht klar. Kann mir vielleicht jemand helfen?
Ich schicke mal den angefangenen Code mit. Fehler: Ungültiger Prozeduraufruf oder ungültiges Argument? Was mache ich falsch?
Private Sub txtResult_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim KMenue As CommandBar
Dim K1 As CommandBarButton
If Button = 2 Then
Set KMenue = CommandBars.Add(name:="Kontextmenue", Position:=msoBarPopup, Temporary:=True)
'Definition der Buttons
KMenue.ShowPopup
With KMenue.Controls
Set K1 = .Add
With K1
.caption = "m"
'Button hat das Symbol Nr. 33
.FaceId = 33
.OnAction = "Makro"
'Darstellung ist Icon und Beschriftung
.Style = msoButtonIconAndCaption
End With
End With
End If
End Sub
Gruß Melanie