Thanks for help, Colo, and for the code. I agree that the 'heaviness"
doesn't balance the benefit of a clear status bar. The extra processing
alone would significantly slow down my UI, I think.

Alex


"Colo" wrote in message
...
Alex J wrote:
*Colo,
The problem is "in suitable timing". *

Yes, there is NO event for Wks_MouseMove().
And we cannot change Comment.Author property.

So what I can tell you is... Get XY position of all comments, and Get
mouse XY point with API.

If the mouse XY point intersects XY points of comments, turn on
Application.StatusBar = False...

Sounds a little bit heavy.. and I don't think it's a good idea. :(

Please wait for the reply from MVPs.

Here is a code for get XY point of mouse cursol.


Code:
--------------------

Private Declare Function GetCursorPos _
Lib "user32" (lpPoint As POINTAPI) _
As Long

Private Type POINTAPI
x As Long
y As Long
End Type

Sub Test()
Dim MousePT As POINTAPI, x As Double, y As Double
Do
GetCursorPos MousePT
x = MousePT.x
y = MousePT.y
Application.StatusBar = "( X=: " & x & " Y =: " & y & ")"
DoEvents
Loop
End Sub

--------------------



---
Message posted from http://www.ExcelForum.com/