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.
J'ai donc mis le code suivant:
Le problème est que la taille de l'userform est monstrueusement grande.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub UserForm_initialize() With UserForm6 .Picture = UserForm1.Image1.Picture 'charge l'image contenue dans userform1 .Width = UserForm1.Image1.Picture.Height .Height = UserForm1.Image1.Picture.Width End With End Sub
pour .width il retourne 13547 et .height 9208, alors qu'Acdsee me dit que la taille de mon image fait 512x348
Comment faire pour qu'excel agrandisse l'userform à la taille réelle de l'image?
Merci pour votre aide
Partager