Agrandissement d'une photo au passage de la souris

[billouu]

Bonjour,

Je souhaiterai effectuer obtenir le résultat suivant:
Lorsque le curseur de la souris se positionne sur une photo, dans un fichier excel, cette photo s'agrandisse automatiquement...
Alors soit par le biais d'une espèce de lien hypertexte ou alors une macro...

Par avance merci de vos réponses et du temps accordé à ce problème.

Billouu

 

[BOISGONTIER]

Re : Agrandissement d'une photo au passage de la souris

Bonjour,

Voir PJ

Affichage d'une image au survol d'une image

-Avec la BO Boite à outils contrôle, créer une image Image1
-Dans les propriétes, choisir l'image dans Picture
-Inserer une image Image2

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

JB
Formation Excel VBA JB

 

[billouu]

Re : Agrandissement d'une photo au passage de la souris

Et bien un grand merci JB pour ta rapidité et ton expertise...
Cela me convient à merveille et fonctionne.

J'aurai une dernière question pour ma culture perso sur la signification de ce code:
If X < 10 Or X > Image1.Width - 10 Or Y < 10 Or Y > Image1.Height - 10 Then

Je suppose que se doit etre le positionnement du curseur (peut etre la précision dans l'image)

Encore merci

Billouu

 

[BOISGONTIER]

Re : Agrandissement d'une photo au passage de la souris

On laisse une bande de 10 pixels en bordure d'image pour masquer l'image lorsque le curseur quitte le centre de l'image.

JB

 

[billouu]

Re : Agrandissement d'une photo au passage de la souris

Ok super c'est ce que j'avais en tête plus ou moins...
Et bien encore un grand merci à toi JB

Billouu