Zoomer sur une image dans un Userform

Version imprimable

04/06/2018, 10h42
OurliacThomas

Zoomer sur une image dans un Userform

Bonjour le forum,

Donc j'ai un problème, je souhaiterai Zoomer sur une image (536*195, état initial de l'image) qui se trouve dans un UserForm, Zoom produit par un clic ou lorsque l'on passe la souris sur l'image. J'aimerai que cette image soit ZOOMER X2. Le problème c'est que je ne connais pas le code pour effectuer ceci. Est ce que quelqu'un pourrait m'indiquer une démarche a suivre, Merci.

Cordialement,

1 pièce(s) jointe(s)

Bonjour
un exemple
une image dans le userform

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim w
Dim h
Dim l
Dim t
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Image1: .Move l, t, w, h: End With
End Sub
Private Sub UserForm_Activate()
With Image1
.Tag = .Left & ":" & .Top & ":" & .Width & ":" & .Height
w = .Width * 2: h = .Height * 2: l = .Left - (.Width / 2): t = .Top - (.Height / 2): End With
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Image1: dims = Split(.Tag, ":"): .Move dims(0), dims(1), dims(2), dims(3): End With
End Sub

Pièce jointe 385742

04/06/2018, 11h14
OurliacThomas

Tout d'abord merci patricktoulon de bien vouloir prendre du temps pour m'aider !

J'ai plusieurs questions, Est ce que c'est possible que l'image lorsque nous "ZOOMONS" dessus, peut-elle être plus grande que l'UserForm c'est à dire que si elle dépasse de l'userform est ce que nous verrons l'image en entier ?

deuxième question, est ce que je dois mettre des valeurs la où vôtre code est écrit en rouge (désolé je suis débutant en VBA), Lorsque que j’exécute le code comme , j'ai l'image qui disparait et n’apparaît plus !

Cordialement,