Connumdrum #1
 

All,
I am trying to clear the "Author" property of the comments I have added to
my application, because I do not like the "Cell A1 commented by Bozo the
Clown" information which automatically appears in the status bar. (XL2000)

It appears to be a read-only parameter.

Any way to prevent the user bar info??

Thanks in advance,

Alex J

Connumdrum #1
 

Alex,

I have no idea how to prevent the information on the StatusBar in th
commented case only.
Why don't you use Application.StatusBar = "" in suitable timing

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

Connumdrum #1
 

Colo,
The problem is "in suitable timing". The status bar message associated with
the comment in a cell occurs when the mouse is placed over the cell - a
completely non-trappable event on the worksheet, I believe. I have no way to
predict or trap the mouse-over event.

Alex



"Colo" wrote in message
...
Alex,

I have no idea how to prevent the information on the StatusBar in the
commented case only.
Why don't you use Application.StatusBar = "" in suitable timing?


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

Connumdrum #1
 

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/

Connumdrum #1
 

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/