Mouse Over Effect - Is there a Macro available for that?

[JJFletcher]

Hello All,

I was wondering if there is a Macro available to produce a MouseOver effect?

When the mouse passes over darker Picture 1, the lighter Picture 2 shows and when it is moved off of the lighter Picture 2, the Lighter Picture 2 is hidden showing Darker Picture 1

Suggestions would be appreciated...

Regards,

John

[Kyle123]

Not easily, you'd need a mouse enter and mouse leave. You could use mousemove for enter, but you'll struggle with leave

[JJFletcher]

I've given that solution some thought... Are there any samples of this available that you may know of?

Regards

John

[Kyle123]

No, it'll get complicated very quickly. I suspect you'd need windows apis to track the mouse, but that's not without issue - vba controls don't have handles like vb6 controls do. I think you'd need to get the dimensions of the control and calculate whether you're hovering on it from the windows pointer events.

[JJFletcher]

Thanks - I appreciate your input greatly

Regards,

John

[Kyle123]

There may be some mileage in putting a larger invisible control around the "hovered" control to fake the "mouse out" event, if the image is in a userform then you could look at the mousemove userform handler. TBH I think it would be unreliable, the speed of movement may cause the events not to fire

[JJFletcher]

Yes - I see... The images would be in the sheet and not the UserForm

Regards,

John

[Kyle123]

Eugh, activeX controls on worksheets are nasty - you want to avoid them.

I'd look for another solution

[JJFletcher]

Thanks - I 've definitely been looking for solutions "lol"

[Andy Pope]

Are you able to make the hyperlink approach work

http://optionexplicitvba.blogspot.co...-mini-faq.html

[Logit]

.

Ref Post #6 :

A work around employed in a personal project was to place an invisible LABEL on each side of a control that was placed on a worksheet. Then using the MOUSEMOVE event, it was possible
to have the control change colors depending on the position of the mouse; i.e., Grey when not hovering ... Red when hovering over.

The process works very well here .. albeit, a workaround and not very elegant.

[karedog]

Maybe :

Please Login or Register  to view this content.

[JJFletcher]

Hi Karedog,

Thanks for the sample - I really appreciate this a lot...

Taking the code from the Sheet and adding it to my existing sheet I notice that the images being used in you sample are connected to the sheet code - I am not able to get my sheet code to see the images that I am working with be seen in the sheet properties like you have in the sample

Also I notice that

Please Login or Register  to view this content.

is being used in the Sheet Formula section

Regards,

John

[karedog]

Hi John,

Taking the code from the Sheet and adding it to my existing sheet I notice that the images being used in you sample are connected to the sheet code - I am not able to get my sheet code to see the images that I am working with be seen in the sheet properties like you have in the sample

In my attached workbook, two "Image Controls's name" that I used are called "imgLight" and "imgDark".
You must change the sheet code to reflect your actual Image's name on your worksheet.
Or, if you want to use the code without modification, you must change the name property of your images to "imgLight" and "imgDark" (I think this is the better option).
To change this, just make sure you are in "Design Mode", then right click on the Image Control --> Properties --> then change the (Name) property (the topmost one) to "imgLight" and "imgDark"
If you have any difficulties doing this, please upload the workbook and I'll do it for you.

---

Also I notice that

Please Login or Register  to view this content.

is being used in the Sheet Formula section

Yes, if you are in "Design Mode" and you click any Form Control on the sheet, the formula bar will display this text.
Just exit "Design Mode", and this will not shown up.

[JJFletcher]

Hi Karedog,

Outstanding code and thanks for giving me clarification... Works great!!! Actually does exactly what I want..

I have 6 images which are horizontal like a menu and this is going to be a lot of code for those 6 images - will start modifying the code to accommodate the 6 dark and light images. We shall see

Should be fun

Thanks again

Regards,

John

[karedog]

Hi John, you are welcome.
Thanks for marking the thread as solved and rep.points.

Regards