Redimensionner image au format dans un controle image

[maval]

Bonjour

Je recherche un code pour redimensionner une image dans un contrôle image de mon formulaire.

Mon code pour insérer image

Dim Nom(300) As String
For i = 0 To ListImage.ListCount - 1
    Nom(i) = ListImage.List(i)
Next

Dim image As Control
Dim nb As Integer
nb = 0
répertoire = "J:\aa-jaquette\"

For Each image In UserForm1.Controls
    If TypeName(image) Like "Image" Then
        image.Picture = LoadPicture(répertoire & Nom(nb) & ".jpg") ', 250, 178)
        nb = nb + 1
    End If
Next

Je vous remercie d'avance

 

[Modeste geedee]

Re : Redimensionner image au format dans un controle image

Bonsour®

For Each image In UserForm1.Controls
     If TypeName(image) Like "Image" Then
         image.Picture = LoadPicture(répertoire & Nom(nb) & ".jpg") ', 250, 178)
         image.picturesizemode = 0 '  0=partiel, 1 = étirer, 3= proportionnel
         nb = nb + 1
     End If
 Next

 

[maval]

Re : Redimensionner image au format dans un controle image

Bonsoir Modeste Geedee

Je te remercie Nickel

Bonne soirée