Zoom image et dezoom
jeffsublime
Messages postés
34
Statut
Membre
-
hich24 Messages postés 1686 Statut Membre -
hich24 Messages postés 1686 Statut Membre -
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
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
1 réponse
-
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
