Trap Mouse Click Events and Position VBA Code Example

Mouse

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. Without talking too much lets sum this article by putting VBA code where we will trap Mouse event and its position. I have mentioned both version APIs below which supports 64bit and 32 bit platform.

APIs and Constants

Following APIs must be placed in a General declaration section in a VBA standard module:

'Crsor Position
#If Win64 Then
    Public Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As LongPtr, ByVal y As LongPtr) As LongPtr
#Else
    Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
#End If

'Mouse Event
#If Win64 Then
    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)
#Else
    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)
#End If
'Constants
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

Set Mouse Position

Public Sub SetCursorPosition()
    'Reset mouse event
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    
    'Set cursor position constants
    Dim oLeft As Long
    oLeft = 10
    
    Dim oTop As Long
    oTop = 700
    
    'Set cursor position to left bottom of the screen
    SetCursorPos oLeft, oTop
    
    'Reset mouse event
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
End Sub

Output

This method will set cursor pointer position at bottom left corner on the screen

Single Click

Public Sub SingleMouseClick()
    'Set cursor position constants
    Dim oLeft As Long
    oLeft = 70
    
    Dim oTop As Long
    oTop = 395
    
    'Set cursor position to left bottom of the screen
    SetCursorPos oLeft, oTop
    
    'Execute click
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Output

It will perform single click on the screen on given position

Double Click

Private Sub MouseDoubleClick()
  'Set cursor position constants
    Dim oLeft As Long
    oLeft = 70
    
    Dim oTop As Long
    oTop = 395
    
    'Set cursor position to left bottom of the screen
    SetCursorPos oLeft, oTop
  
    'Execute double click
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Output

It will double click on the screen on given position

Right Click

Private Sub MouseRightClick()
    'Set cursor position constants
    Dim oLeft As Long
    oLeft = 120
    
    Dim oTop As Long
    oTop = 400
    
    'Set cursor position to left bottom of the screen
    SetCursorPos oLeft, oTop
    
    'Execute Cursor
    mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

Output

Please subscribe to our blogs to keep your self upto date.

Share on Facebook

RSS feed

Number List in Word Document using C# code example

Number List Microsoft Word offers feature by which you can auto number your list in various formats. In this article we will write code to dynamically generate a numbered list in a document using C#. C# Code example Note: You have to add Microsoft Word Interop library as reference to enable Using statement or create […]

Sorting in Microsoft Word using VBA (Visual Basic for Applications)

Sorting Do you know, Microsoft Word has capability to perform sorting over a document. In this article we will write code to sort paragraphs in Alphabetical order using visual basic for applications code. Before code Code example Put above code in a module, Select number of paragraphs that you would like to sort in A-Z […]

EPPlus Open Office Xml Office solution using C#

EPPlus Is an open Office XML solution, highly useful library capable to manipulate Microsoft Excel similar to Introp APIs. Why EPPlus? As per Microsoft the solutions (Excel, Word, PowerPoint, Outlook etc) built for client architecture but what about Servers? Let’s take an example that I have recently faced and EPPlus helped me a lot here. […]

String vs StringBuilder C#.Net with code example

String C# class which offers capability to store any type of string data into a variable. Strings are immutable (non-modifiable) cause performance overhead because each time we modify a string it creates a copy of modified instance into the memory, hence, as a practice string should be avoided for large string operations. Following is the […]

Var vs. Dynamic C# with code example

Var vs. Dynamic C# offers variety with flavors to accomplish the task to the developers. var keyword defines a static nature which gets resolve at compile-time introduced in C# 3.0 where dynamic gets resolved at runtime introduced in C# 4.0. Var is a statically type variable, which means values of these variables gets decoded at […]

Multi-threading in C#.Net with step by step code example

Multi-threading Is a concept to execute multiple tasks or process simultaneously. Basically multi-threading enables paths to your application to execute multiple processes. Multi-threading can be achieved in C# using System.Threading name space which provides complete control over threading. Let’s write example code where we will execute two different methods to print numbers using loop and […]

Create a progress bar in Excel using VBA (Visual Basic for Applications)

Progress bar In this article we will create one progress bar using Excel vba with step by step example. User can change feel and look of the UserForm as per their need and mimic the logic to fit in their solution. Design Insert a user form Add one label on it and change Caption property […]

Get Count of Cells based on Color Excel Add-in using VBA

Cells Color If you have lots of data bifurcated using colors, this post will help you to get quick analysis done over the data based on color. In this article we will write a user defined function which get count of cells based on color using VBA. Input Data Code example Implementation Output Next >> […]

Auto Reply in Outlook Add-in using VBA code example

Auto Reply Feature helps user to set automatic reply to the sender when you are away from your outlook mailbox. Conceptually, auto reply instructions saved on the Outlook Exchange Server having (Start Date/time, End Date/time a default message). Prerequisites Outlook redemption library which can be downloaded from here. Code example Next >> Filter meetings based […]

Filter Meetings in Outlook Add-in using Visual Basic for Applications

Filter If you need to filter meetings based on date, company name, subject etc, Outlook VBA offers Restrict method which takes filter criteria and provide calendar items as a result which you can take for further manipulation as given in below code. Where we are iterating all the appointments or calendar tasks for specific date. […]

Trap Mouse Click Events and Position VBA Code Example

Mouse

APIs and Constants

Set Mouse Position

Output

Single Click

Output

Double Click

Output

Right Click

Output

Leave a Reply Cancel reply

Sorting in Microsoft Word using VBA (Visual Basic for Applications)

Create a progress bar in Excel using VBA (Visual Basic for Applications)

Get Count of Cells based on Color Excel Add-in using VBA

Auto Reply in Outlook Add-in using VBA code example

Filter Meetings in Outlook Add-in using Visual Basic for Applications

RSS feed

Subscribe to our articles