Zoom d'une image Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
p
priatel
Membre habitué
Membre habitué
Messages : 147
Inscrit le : 12 octobre 2016
Version d'Excel : 2007 EN

Message par priatel » 22 octobre 2016, 13:54

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
zoom.xlsx
(365.44 Kio) Téléchargé 73 fois
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 22 octobre 2016, 14:29

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.
p
priatel
Membre habitué
Membre habitué
Messages : 147
Inscrit le : 12 octobre 2016
Version d'Excel : 2007 EN

Message par priatel » 22 octobre 2016, 15:38

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? :D
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 5'705
Appréciations reçues : 230
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Téléchargements : Mes applications
Contact :

Message par LouReeD » 6 décembre 2018, 21:48

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 ! ;-)
1 membre du forum aime ce message.
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
_______________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message