Mouse Pointer Position

P

PaddyD

MrExcel MVP

Joined

May 1, 2002

Messages

14,234

• Feb 9, 2004

• #2

as an aside - to what end?

 

Upvote 0

C

CraigM

Active Member

Joined

Feb 27, 2003

Messages

320

• Feb 9, 2004

• #3

I'd like to be able to add a shape when the mouse is pointing on a worksheet. Obviously I could add the shape and then move it to where I want it, but the project I'm working on requires this to be done many times, so it would be much quicker and less tedious if it were possible.

 

Upvote 0

D

dk

MrExcel MVP

Joined

Feb 15, 2002

Messages

2,942

• Feb 9, 2004

• #4

http://www.mrexcel.com/board2/viewtopic.php?t=816

 

Upvote 0

Tom Urtis

MrExcel MVP

Joined

Feb 10, 2002

Messages

11,305

• Feb 9, 2004

• #5

Here's another from Hans Herber:

Option Explicit

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Sub WhereAmI()
Dim pTargetPoint As POINTAPI
Dim lRetVal As Long
lRetVal = GetCursorPos(pTargetPoint)
MsgBox "My Position:" & vbLf & pTargetPoint.x & "," & pTargetPoint.y
End Sub


Hey Dan - - Thanks for re-posting that link...makes the mouse look like it's on steroids with all the value changes in the linked cell, kind of cool.

 

Upvote 0

C

CraigM

Active Member

Joined

Feb 27, 2003

Messages

320

• Feb 9, 2004

• #6

Thanks guys, That's a great start. Now I'm trying to figure out how I can "calibrate" the screen x,y pixel co-ordinates with the points position on my spreadsheet. Any tips would be great.

Thanks

 

Upvote 0

J

Juan Pablo González

MrExcel MVP

Joined

Feb 8, 2002

Messages

11,959

• Feb 9, 2004

• #7

Well, that shouldn't be an easy task... not impossible though.

Look here for what Chip uses to position a userform near a cell:

http://www.cpearson.com/excel/FormPosition.htm

 

Upvote 0