Mouse Movement Through VBA

[aadityajain08]

Hi Team,

I have an requirement where i need to move the mouse cursor to to particular element on the screen. I tried to look the code but only able to find the code by setcursorposition where in you need to have the coordinates.
Is there any possibility that we can move mouse cursor without coordinates and by element value or name.

Alternatively, if above is not possible, then how can we find the coordinates of particular element on the screen. Also, if these coordinates are independent of the different desktop and laptop, screen resolutions. Because if i will hardcode the coordinates in my code and ran the code on different system then will it work or fail.

Please suggest.

Regards;
Aditya Jain

 

[Yongle]

Hi

Test this in a new workbook
- Paste code below into a standard module
- Insert a shape on the sheet
- Run the code
- Cursor moves to centre of the shape
- Modify to suit your reuirements

Option Explicit
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Sub MoveCursorToShape()
    Dim x As Double, y As Double
    Dim AW As Object:       Set AW = ActiveWindow.Application.ActiveWindow
    Dim shp As Shape:       Set shp = ActiveSheet.Shapes(1)
    x = (shp.left + (shp.Width / 2)) / 0.75
    y = (shp.top + (shp.Height / 2)) / 0.75
    SetCursorPos AW.PointsToScreenPixelsX(x), AW.PointsToScreenPixelsY(y)
End Sub

 

[James006]

Hello,

If you want to control mouse via VBA ...

Ryan Wells has a very good explanation ...

https://wellsr.com/vba/2015/excel/vba-mouse-move-and-mouse-click-macro/

Hope this will help

 

[Jaafar Tribak]

@aadityajain08

What you need depends on the "particular element on screen" ... What element on screen do you need to move the cursor to ? Is it within excel like a shape, cell, menu etc ... or outside excel ?