Redimensionner image au format dans un controle image

maval · 7 Juin 2015

Bonjour

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

Mon code pour insérer image

Code:

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 · 7 Juin 2015

Re : Redimensionner image au format dans un controle image

Bonsour®

VB:

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 · 7 Juin 2015

Re : Redimensionner image au format dans un controle image

Bonsoir Modeste Geedee

Je te remercie Nickel

Bonne soirée

Redimensionner image au format dans un controle image

maval

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

Discussions similaires