Zoom image et dezoom Fermé

Question

Bonjour, 

Je cherche un code pour zoomer une image quand on clic dessus et dezoomer lorsqu' on reclic dessus.


Merci de bien vouloir m'aider

Ps ci-dessous le code que j'utilise pour le zoom, mon problème est pour remettre l'image a la dimension de départ.

Sub Image5_Clic()
  With ActiveSheet.Shapes(Application.Caller)
    L = .Left
    T = .Top
    W = .Width
    H = .Height
    .Left = L - (x - 1) * W / 2
    .Top = T - (x - 1) * H / 2
    .Width = x * W
    .Height = x * H
  End With
End Sub

Jeff 
Configuration: Windows 7 / Mozilla 11.0

hich24 · Answer

Sub Image5_Clic()
if ActiveSheet.Shapes.height>? then
" tu met les code pour les dimentions reduite"
else
With ActiveSheet.Shapes(Application.Caller)
L = .Left
T = .Top
W = .Width
H = .Height
.Left = L - (x - 1) * W / 2
.Top = T - (x - 1) * H / 2
.Width = x * W
.Height = x * H
End With
end if
End Sub

Zoom image et dezoom

1 réponse

Discussions similaires