Zoom image et dezoom
jeffsublime
Messages postés
34
Date d'inscription
Statut
Membre
Dernière intervention
-
hich24 Messages postés 1635 Date d'inscription Statut Membre Dernière intervention -
hich24 Messages postés 1635 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Zoom image et dezoom
- Image iso - Guide
- Zoom appel video - Guide
- Acronis true image - Télécharger - Sauvegarde
- Reduire taille image - Guide
- Télécharger zoom gratuit pour pc - Télécharger - Téléphonie & Visio
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
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