Mouse-over effect?

[Waxaholic]

Is it possible to create a Mouse-over type of effect in excel? I have a Navigation page setup and would like to hi-lite or change the color of 1 or 2 other cells. For example: The main header is in A1 and a sub-header is at A2. Could it be coded where upon a mouse-over of A1 would hi-lite A2 or something similair?

Thank you,

Waxaholic

[Tom Schreiner]

There are several ways you could do this...
If the user will not be entering data into Cell A1, an image box could be drawn out to cover Cell A1. Then by using the image box's mouse move event, you could manipulate Cell A2 as you wish...
Example:

Draw an activeX image box which covers A1 and then place this code in the worksheet's code pane...

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Y > 4 And Y < Image1.Height - 4 And _

   X > 4 And X < Image1.Width - 4 Then

   Range("A2").Interior.ColorIndex = 6

Else

   Range("A2").Interior.ColorIndex = 0

End If

End Sub

The larger the interior area of cell A1, the more accurate this will work. If the user moves the mouse too rapidly, Cell A2 may not reset to default.
This procedure will change the interior color to yellow as the mouse is moved over cell A1, and back to no fill as the mouse exits the area of Cell A1.
The other alternative would be to use an API routine to capture the mouse coordinates...
Let us know if this works or not.
Tom

[Waxaholic]

That works great. I have just one more question. How can i label Cell A1? I tried overlaying a text box but then it doesn't allow the mouse-over. I didn't see anywhere in the ActiveX image properties to allow for a visible label. Thanks for the help.

Waxaholic

[Ivan F Moala]

On 2002-05-19 06:47, Waxaholic wrote:
That works great. I have just one more question. How can i label Cell A1? I tried overlaying a text box but then it doesn't allow the mouse-over. I didn't see anywhere in the ActiveX image properties to allow for a visible label. Thanks for the help.

Waxaholic

Get an image of what you want on the lable
and just load it into the image via the
images picture property.
Any number of graphics prgms will allow
you do manipulate an image to get what you want.....

[Waxaholic]

I considered just that but do not want to have to send the image along with the spreadsheet when giving the workbook to another person. I also wanted to avoid storing the image in the workbook as well. I substituted a Text Box control instead of the Image control and this works. Thanks again for all the help.

Waxaholic

[Ivan F Moala]

On 2002-05-19 09:32, Waxaholic wrote:
I considered just that but do not want to have to send the image along with the spreadsheet when giving the workbook to another person. I also wanted to avoid storing the image in the workbook as well. I substituted a Text Box control instead of the Image control and this works. Thanks again for all the help.

Waxaholic

You don't need to send the image ??
The image will be inserted as an object
of the imagecontrol ??