2020年4月16日 星期四

UserForm Right-Click Menu


Need to put code in the MouseUp event. Something like this should get you started ..

[VBA]
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = xlSecondaryButton Then
Application.CommandBars("Cell").ShowPopup
End If
End Sub
[/VBA]




沒有留言:

張貼留言