Zoom image et dezoom

Fermé

jeffsublime Messages postés 34 Date d'inscription vendredi 4 juillet 2008 Statut Membre Dernière intervention 29 octobre 2019 - 23 janv. 2015 à 17:39
hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 - 23 janv. 2015 à 17:53

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

A voir également:

Zoom image et dezoom
Image iso - Guide
Telecharger zoom - Télécharger - Téléphonie & Visio
Acronis true image - Télécharger - Sauvegarde
Faststone image viewer - Télécharger - Visionnage & Diaporama
Google recherche par image - Guide

1 réponse

Réponse 1 / 1

hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 752
23 janv. 2015 à 17:53

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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Comment enlever le rouge sur la photo svp ?

Discussions similaires

Newsletters