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

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. […]

Calendar (.ics) Sharing in Outlook Add-in using VBA code

Calendar Share Sometime you may in need where you would like to share your calendar with others to sync. Outlook exposes CalendarSharing object which holds reference of your calendar. Further this object can be used to set various properties to customize details before sharing your calendar with others. Code example Explanation The above code offers […]

Print attachments for selected Email Outlook Add-in using VBA code

Print sometimes you might in need where you would like to print attachments for bulk emails. This type of requirement can be automated using power of VBA (Visual Basic for Applications). In this PoC we will learn code to print attachments in selected email item. Code example Explanation The above code will pick each selected […]

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

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

Calendar (.ics) Sharing in Outlook Add-in using VBA code

RSS feed

Subscribe to our articles