commentaire au survol de la souris sur une image (bouton)

[pascal21]

bonsoir
je souhaiterais savoir si il est possible lors du survol de la souris sur une image, d'avoir un message (un peu à la façon de ce qui se fait dans la barre d'outil de excel) pour indiquer la fonction de cette image (bouton enregistrer,effacer, corbeille etc.....)
merci

 

[BOISGONTIER]

Re : commentaire au survol de la souris sur une image (bouton)

Bonsoir,

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   If X < 10 Or X > Image1.Width - 10 Or Y < 10 Or Y > Image1.Height - 10 Then
     ActiveSheet.Shapes("monshape").Visible = False
   Else
     ActiveSheet.Shapes("monshape").Visible = True
   End If
End Sub

http://boisgontierjacques.free.fr/fichiers/Evenementiel/BoutonSurvol.xls

JB
Formation Excel VBA JB