Show Picture When Hover Over A Label

[raymond30031]

Hello,

I have labels with different names and I hope to attach pictures to them for people to understand better what those names mean.

When the user hover the mouse over the label a picture will pop, and the picture will disappear when the mouse leave the label.

Here is what I have, The picture does show up, but I do not know how to make the picture disappear when the mouse leaves the label.

I have thought of using delay to display the picture for 5 secs and change visible to false, but i am just wondering if there is a way to code this to the way I hope.

Private Sub Label10_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sheet2.Shapes("Picture 5").Visible = True

 

[MickG]

Try something like this:-
You may need to play with the "5" to get it to appear and disappear within the Label Area.

Private [COLOR="Navy"]Sub[/COLOR] Label1_MouseMove(ByVal Button [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer,[/COLOR] ByVal Shift [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer,[/COLOR] ByVal X [COLOR="Navy"]As[/COLOR] Single, ByVal Y [COLOR="Navy"]As[/COLOR] Single)
[COLOR="Navy"]If[/COLOR] X > 5 And X < Label1.Width - 5 And Y > 5 And Y < Label1.Height - 5 [COLOR="Navy"]Then[/COLOR]
    ActiveSheet.Shapes("Picture 1").Visible = True
[COLOR="Navy"]Else[/COLOR]
    ActiveSheet.Shapes("Picture 1").Visible = False
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick