Insérer un commantaire lors du survol d'une image

Bonjour,

J'ai affecté une macro de sauvegarde à une image et je souhaiterais ajouter un commentaire "sauvegarde"

la macro est

Sub save()
    ActiveWorkbook.save
End Sub

J'ai bien trouvé quelque chose, mais cela concerne des boutons, je ne sais pas comment l'adapter pour une image, pour dire "sauvegarde"

 Me.Hyperlinks.Add Bouton, "", "", ScreenTip:="Survol de  " & Bouton.Name

Merci pour vos réponses

Bonsoir,

j'ai bien trouvé un truc qui date, mais cela me semble bizarre que pour afficher un mot, il faut faire une macro aussi longue.

Affichage d'un commentaire au survol d'une image

1- avec la boite à outils contrôles, créer un contrôle image

2- dans la propriété Picture, choisir l'image externe

3- créer une zone de texte et la nommer cmt

SurvolImage

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("cmt").Visible = False
  Else
    ActiveSheet.Shapes("cmt").Visible = True
  End If
End Sub

En fait j'ai trouvé une astuce toute simple sans macro.

sans doute que tout le monde la connait.

A moins que cela ne soit pas recommandé.

Bref, voilà comment je vais faire.

Donc,

clic droit / lien hypertexte / info-bulle...

je rentre le message que je veux mettre (enregistrer) pour un bouton ( ou une image ou sera affecté la macro enregistrer).

puis dans la partie lier à, je sélectionne emplacement dans le doc, puis choisi le nom de ma feuille ou se trouve mon image (il affecte une cellule en guise de lien que je peu modifier) et je fais ok

Le tour est joué, si je survol mon image pour enregistrer, j'ai enregistrer qui s'affiche.

avantage, j'ai toujours le champ libre pour en plus affecter la macro pour enregistrer.

voilà, voilà, sans macro tout simplement

bonne année à tous

Non, ça ne marche pas,

car ensuite la macro n'a pas l'air de s’exécuter

mon idée n'est pas bonne.