VBA:在用户表单中右键单击

Question

是否有一种简单的方法可以在vba, excel的用户表单的文本框中启用右键弹出菜单?我只是想粘贴到一个文本框中，但不能在用户表单中右键打开菜单

我的代码给出了一个"编译错误:参数不是可选的"并在With控件中突出显示。add。添加…

Private myMenu
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If (Button = 2) Then myMenu.ShowPopup
End Sub
Private Sub UserForm_Initialize()
With UserForm1
.StartUpPosition = 2
End With
Set myMenu = Application.CommandBars.Add(Position:=msoBarPopup, Temporary:=True)
With myMenu
With Controls.Add
.Caption = "Hello"
.OnAction = "HelloWorld"
End With
End With
End Sub

Answer 1

改变这一行:

With Controls.Add

:

With .Controls.Add