Right click copy/past - textbox in userform

[perksukataus]

Hi guys, any help greatly appreciated.

I have created a userform that people complete to add data to a spreadsheet. Some users have complained they are unable to right click in the text boxes to paste information copied from elsewhere. Yes they can ctrl v, but this appears a little to difficult to remember.

Does anybody know how to add this right click option to text boxes ?

Thanks !

 

[Tom Urtis]

In the userform module; modify for textbox name:

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SendKeys "^v"
End Sub

 

[perksukataus]

Thanks for looking into this for me.

This code just pastes what is stored in the clipboard when the right mouse button is clicked. I was actually wondering if it's possible to get the menu when right clicking (same menu as when you right click on a cell) ?

 

[Tom Urtis]

First, isn't Paste what you asked for in your first post, and second, why would you want a menu, since textboxes do not support rich text format. All you can do is put text in them, formatted a certain way that affects all the text, therefore Paste is all you can do anyway.

 

[perksukataus]

Tom, the users are used to right clicking and selecting paste from a list of options. I wondered if I can make this list of options available when right clicking in the text box.

I understand that the only option would be paste.

Thanks for your help anyways.

 

[Tom Urtis]

So you want to design the userform such that a menu pops up that lists items, among them Paste, when Paste is all they can do? What if they expect that clicking on some other options should "do something because it's there"?

And it means they must click at least twice instead of once, the first time being the right click for a menu, and the second time for left-clicking the Paste option which is all they can do anyway. I would not post the code for that, it doesn't make sense for a user friendly design to put items on a custom menu that are not available.

The most you would want to have is just a "Paste" menu option instead of a list of other options even though they are used to seeing whatever menu items they are used to seeing. We can discuss that, and I'm not trying to be difficult with you, but I wouldn't do a custom menu list of items that has no relevance to the control.

 

[perksukataus]

Hi again,

Absolutely understand where your coming from. I'll educate users to use Ctrl V.

Thanks again for your help.

Josh

 

[Tom Urtis]

That will probably not work either, if they are accustomed to right-clicking.

Do this:

In the userform module, delete that first procedure I posted and put this into the module:

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then Run "MyRightClickMenu"
End Sub
 
Private Sub UserForm_Terminate()
Application.CommandBars("Cell").Reset
End Sub

In a new standard module (such as macros and UDFs go in), paste this in:

Private Sub MyRightClickMenu()
Application.CommandBars("Cell").Reset
Dim cbc As CommandBarControl
For Each cbc In Application.CommandBars("cell").Controls
cbc.Visible = False
Next cbc
With Application.CommandBars("Cell").Controls.Add(temporary:=True)
.Caption = "Paste"
.OnAction = "myPaste"
End With
Application.CommandBars("Cell").ShowPopup
End Sub
 
Private Sub myPaste()
SendKeys "^v"
End Sub

That should meet most people's comfort level.

 

[perksukataus]

Tom your an absolute legend. Thanks very much for that, perfect solution.

Thanks again!