Add(Type:=msoControlButton, before:=6, _ With Application.CommandBars('cell').Controls _ If Not Application.Intersect(Target, Range('b1:b10')) _ Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _įor Each icbc In Application.CommandBars('cell').Controls The following example traps the right-click event and adds a new menu item to the shortcut menu for cells B1:B10. Some events can be used to substitute an action for the default application behavior, or to make a small change to the default behavior. The following example adjusts the size of columns A through F whenever the worksheet is recalculated. Worksheet-level events occur when a worksheet is activated, when the user changes a worksheet cell, or when the PivotTable changes. Select one of the following events from the Procedure list box. To view the event procedures for a sheet, right-click the sheet tab and click View Code on the shortcut menu. Please subscribe to our blogs to keep your self upto date.Events on sheets are enabled by default. Mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 Mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 It will double click on the screen on given position Right Click Private Sub MouseRightClick() It will perform single click on the screen on given position Double Click Private Sub MouseDoubleClick() Mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 This method will set cursor pointer position at bottom left corner on the screen Single Click Public Sub SingleMouseClick() 'Set cursor position to left bottom of the screen Mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Public Const MOUSEEVENTF_RIGHTUP As Long = &H10 Set Mouse Position Public Sub SetCursorPosition() Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8 Public Declare Sub mouse_event Lib 'user32' (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Public Declare PtrSafe Sub mouse_event Lib 'user32' (ByVal dwFlags As LongPtr, ByVal dx As LongPtr, ByVal dy As LongPtr, ByVal cButtons As LongPtr, ByVal dwExtraInfo As LongPtr) Public Declare Function SetCursorPos Lib 'user32' (ByVal x As Long, ByVal y As Long) As Long Public Declare PtrSafe Function SetCursorPos Lib 'user32' (ByVal x As LongPtr, ByVal y As LongPtr) As LongPtr

APIs and Constantsįollowing APIs must be placed in a General declaration section in a VBA standard module: 'Crsor Position I have mentioned both version APIs below which supports 64bit and 32 bit platform. Without talking too much lets sum this article by putting VBA code where we will trap Mouse event and its position. Very first step to trap a mouse pointer on the screen is grab the control over mouse position, once we get control over mouse position we can trigger mouse events.

Excel vba on cell click event