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

pascal21

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Repose en paix
Re : commentaire au survol de la souris sur une image (bouton)

Bonsoir,

Code:
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
 

Pièces jointes

  • SurvolTextex.zip
    45.1 KB · Affichages: 775
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 884
Messages
2 093 242
Membres
105 658
dernier inscrit
Mario Richard