Discussion :

[KERKENIANES]

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

[Invité]

Bonjour,

Et avec ?

Code :

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

1
2
3
4
5
 
With Me.Image1
     .PictureSizeMode = fmPictureSizeModeZoom
     .Picture = LoadPicture(image)
End With

[KERKENIANES]

bonjour,
avec la boucle with, et fm picture size mode stretch ça a l'air de marcher même avec la propriété autosize =true
je bricole depuis le matin avec vba, mais j'ai fini par mettre dans les propriété autosize = false et ça semble marcher. Je vais tester ça avec autres dimensions.
merci.