Agrandissement d'une photo au passage de la souris

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 4 Juin 2010

• #2

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

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

JB
Formation Excel VBA JB

 

Pièces jointes

• Classeur2.zip

  44.7 KB · Affichages: 599
• Classeur2.zip

  44.7 KB · Affichages: 549
• Classeur2.zip

  44.7 KB · Affichages: 620

Dernière édition: 4 Juin 2010

Vote positif 0 Vote négatif

B

billouu

XLDnaute Junior

• 4 Juin 2010

• #3

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 4 Juin 2010

• #4

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

 

Vote positif 0 Vote négatif

B

billouu

XLDnaute Junior

• 4 Juin 2010

• #5

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

 

Vote positif 0 Vote négatif