Zoom d'une image

Bonjour,

J’ai placé dans un fichier une image miniature d’environ 15mm x 15mm.

Je souhaiterais que le visiteur puisse zoomer cette image par simple click et inversément, dézoomer, par un autre click sur l’image agrandie.

J’ai mis à coté de la miniature, la taille de l’image (10cmx10cm) que je souhaiterais pour le zoom.

Comment dois-je procéder ?

Merci

PS :

1- j’ai lu ce qui a trait au zoom sur le forum (515 réponses !) mais je n’ai pas trouvé comment faire pour mon cas.

2- Dans mon fichier final, il y aura au total une centaine d’images à zoomer.

Merci

Bruno

108zoom.xlsx (365.44 Ko)

Bonjour,

Possibilité :

Sub ZoomImg()
    Static winit!
    Dim w!
    With ActiveSheet.Shapes(Application.Caller)
        If winit = 0 Then
            winit = .Width
            w = Application.CentimetersToPoints(10)
            .Width = w
        Else
            .Width = winit
            winit = 0
        End If
    End With
End Sub

Macro à affecter à l'image.

Cordialement.

IMPECCABLE !

Ça marche et je n'ai qu'à assigner la même macro a chacune de mes 100 images pour que le zoom s’exécute!

Merci beaucoup MFerrand !

Bruno

PS: Je constate qu'avec Excel on peut presque tout faire. Vous, les cracks d'Excel, ne pensez-vous pas à créer une liste de points QUE L'ON NE PEUT PAS FAIRE avec Excel?

Bonsoir,

je commencerai par le café, puis comme les circonstances le veulent, pas de sapin non plus, ni les cadeaux qui vont avec, et il me semble ne pas avoir réussi à tondre ma pelouse avec Excel...

@ bientôt

LouReeD

Ha ! J'oubliais, être sérieux aussi !

Rechercher des sujets similaires à "zoom image"