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é 78 fois
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
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'929
Appréciations reçues : 250
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

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
  • Zoom image
    par preststeph » 6 décembre 2018, 21:19 » dans Excel - VBA
    8 Réponses
    175 Vues
    Dernier message par preststeph
    15 mars 2019, 21:09
  • Rollover, survol image zoom
    par theguilt » 28 septembre 2015, 16:45 » dans Excel - VBA
    23 Réponses
    1486 Vues
    Dernier message par waard
    4 octobre 2015, 10:55
  • Faire un bouton zoom pur une image
    par Clem31140 » 21 mai 2019, 15:50 » dans Excel - VBA
    11 Réponses
    136 Vues
    Dernier message par James007
    24 mai 2019, 13:02
  • Problème de zoom
    par jfk15 » 6 juin 2015, 17:32 » dans Excel - VBA
    5 Réponses
    319 Vues
    Dernier message par jfk15
    6 juin 2015, 22:48
  • macro Zoom
    par jh50160 » 22 septembre 2014, 13:35 » dans Excel - VBA
    8 Réponses
    605 Vues
    Dernier message par jh50160
    23 septembre 2014, 19:31
  • Limiter un Zoom en VBA
    par Roche » 8 juin 2016, 15:41 » dans Excel - VBA
    6 Réponses
    380 Vues
    Dernier message par Roche
    9 juin 2016, 15:39