MouseMove sur image est ce possible?

[zeltron]

Bonjour à tout le Forum,

Le code suivant de Thierry,permet de faire apparaitre un label lorsque la souris passe sur un commandbutton:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = True
End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = False
End Sub

Private Sub CommandButton1_Click()
Me.Shapes('TipText').Visible = False
End Sub

J'ai voulu adapter cela pour l'appliquer au passage de la souris sur une image.
J'ai essayé cela:

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = True
End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes('TipText').Visible = False
End Sub
Private Sub Image1_Click()
Me.Shapes('TipText').Visible = False
End Sub

Mais cela ne fonctionne pas, que le code soit dans la feuille concernée ou dans un module.
Cela est il lié au fait que MouseMove sur une image n'est pas possible?
Sinon,en quoi mon code adapté est il erroné?

Merci d'avance pour votre aide

Cordialement

Zeltron

 

[ZELTRON]

Je viens de trouver ma réponse sur ce fil:

Lien supprimé

Bonne journée à tous

Cordialement

Zeltron