Right click menu USER FORM

[lbargers]

Hi all,

I have some custom VBA functionality built behind an excel worksheet. One of the features that is included is a user form that pops up when a user changes the values of certain fields. A text box on the user form will capture data that is entered by a tester, I would like to allow the testers to have the ability to copy and paste cell data into the text box on the on the user form. Currently this is only possible to paste copied data into this box using the shortcut key (Ctrl-V).

I would a like a small window or menu to appear when a tester right clicks in text box to allow them to copy or paste to this field using the mouse.


Thanks in advance for any help on this issue..

Larry

 

[Jaafar Tribak]

Tom,

Unless I am missing something here but there really is no need for API functions in order to have a textbox context menu.

Here is a rough example :

Option Explicit


Private Sub TextBox1_MouseDown(ByVal Button As Integer, _
  ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim objCmb As CommandBar
    If Button = 2 Then
        Set objCmb = Application.CommandBars.Add(Position:=msoBarPopup)
        With objCmb
            With .Controls.Add(msoControlButton)
                .Caption = "Copy from Clipboard"
                .OnAction = "Copy_from_Clipboard"
            End With
        End With
        objCmb.ShowPopup
        objCmb.Delete
        Set objCmb = Nothing
    End If
End Sub

in a standard module :

Sub Copy_from_Clipboard()

    If Application.CutCopyMode Then UserForm1.TextBox1.Paste

End Sub

Regards.

 

[Legacy 98055]

Hi Jaafar.

No, your not missing anything. It was a ready-made solution I found on the net and simply edited it a bit. You will, of course, still end up writing a fair amount of code to duplicate the functionality of the previous post.

 

[Big Monkey]

Whoa!

I dropped in the code you posted and it works perfectly with absolutely no edits!

That was extremely kind of you Right_Click.

Thank you VERY much!!!!!!