bonjour
j essaye d introduire des photos dans mon formulaire qui s affiche selon la sélection d une listbox. l image s affiche .
le problème, je n arrive pas a adapter la photo a la taille de mon image box dans userform. il est toujours grand et non centre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim image As String
Dim X As String
 
X = Me.ListBox1.Column(11, Me.ListBox1.ListIndex)   '  cellule contenant le chemin de la photo
 
image = X
Me.Image1.PictureSizeMode = fmPictureSizeModeStretch
Me.Image1.Picture = LoadPicture(image)
merci pour votre aide