Here is code by Patrick Malloy that shows it every second:
Option Explicit
Global bShowPos As Boolean
Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Type POINTAPI
X As Long
Y As Long
End Type
Sub start_timer()
bShowPos = True
Application.OnTime Now + _
TimeValue("0:00:01"), "ShowPos"
End Sub
Sub ShowPos()
Dim lRetVal As Long
Dim Pos As POINTAPI
lRetVal = GetCursorPos(Pos)
Application.StatusBar = Pos.X & ", " & Pos.Y
Range("A1") = Pos.X & ", " & Pos.Y
If bShowPos Then
start_timer
Else
Application.StatusBar = False
End If
End Sub
Sub Stop_Timer()
bShowPos = False
End Sub
--
Regards,
Tom Ogilvy
Regina Rodler said:
Thank you Paul,
but what I need is a continuous display of coordinates of actual
coordinate-values whenever mouse is moved.
RR
Regina, here is one way, right click on the worksheet tab and view code,
paste this in the window that opens
will put the cell address in A1, change to the cell you want
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = ActiveCell.Address
End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003
Hello there,
is it possible, and if so, how, to show X- and Y-coordinates
of the cursor position in a range / cell while mouse moves ?
Thank you in advance,
Regards,
RR