Discussion :

[apdf1]

Bonjour,

J'ai un userform avec un contrôle image de petite taille.

Lorsque je clique sur cette image je souhaite que l'image s'affiche en taille réelle dans un nouvel userform. en sachant que les images ne sont pas toutes de la même taille.

J'ai donc mis le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Private Sub TextBox1_Change()
On Error Resume Next
Image1.Picture = LoadPicture("E:\Le Monde\Etats Unis\Carte\" & TextBox1 & ".gif")
On Error GoTo 0
 
End Sub
 
 
Private Sub UserForm_Initialize()
 
TextBox1.Value = Range("A1").Value
   With UserForm2
    .Width = UserForm2.Image1.Height
    .Height = UserForm2.Image1.Width
 End With
 
 
End Sub

Le problème et que la taille de userform ne change pas
Comment faire pour agrandir l'userform à la taille réelle de l'image?
Taille moyenne des images est de: 800H x 558L en Pixels
Merci pour votre aide

Cordialement

Apdf

[pgz]

Bonjour.

Peux-tu nous dire dans quels modules sont les différentes procédures, et montrer celle qui ouvre userform2.
Détail : tu sembles avoir inversé hauteur et largeur.

Cordialement,

PGZ

[apdf1]

Bonjour PGZ

Que veut tu dire dans quels modules sont les différentes procédures?
Mon code est dans mon Userform et j'ai mis la propriété de "Image1 à autosize = True"

Tu as raison j'ai inverser largeur hauteur bien vue....!

Est-il possible de lui laisser un blanc au-dessus de l'image pour mettre un textbox?

Merci

Bonne journée

[Docmarti]

Bonjour le forum

Voici un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton1_Click()
 
 pic = "C:\Users\client\Documents\TaPhoto.jpg"
 
 Call Ajuster_Dimensions_Image1_et_Userform1(pic)
 
End Sub
 
Private Sub Ajuster_Dimensions_Image1_et_Userform2(pic)
 
    With UserForm2
        With .Image1
            .Left = 0
            .Top = 20
 
            .Picture = LoadPicture(pic)
 
            .AutoSize = True
        End With
 
        .Width = .Width + (.Image1.Left + .Image1.Width) - .InsideWidth
 
        .Height = .Height + (.Image1.Top + .Image1.Height) - .InsideHeight
 
    End With
 
End Sub

[apdf1]

Bonjour Docmarti

Je te remercie et te souhaite un bon WE

ax