maval
XLDnaute Barbatruc
Bonjour
Je recherche un code pour redimensionner une image dans un contrôle image de mon formulaire.
Mon code pour insérer image
Je vous remercie d'avance
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