Redimensionner image dans User

Bonjour

J'ai sur mon Formulaire un défilement d'mages avec se code:

Private Sub UserForm_Activate()
    chem = ActiveWorkbook.Path & "\"
    'chem = "C:\Dossier Images\"
    lafin = False
    Do
        ind = 1
        Do
            img = "image" & ind & ".jpg"
            Image1.Picture = LoadPicture(chem & img, 100, 100)

            Application.Wait (Now + TimeValue("00:00:02"))
            DoEvents
            ind = ind + 1
        Loop Until ind > 3 Or lafin = True
        DoEvents
    Loop Until lafin = True
End Sub

Mon problème est que je n'arrive pas a redimensionner mes images

Je vous remercie

Max

Bonjour,

as-tu essayé d'ajouter Me.Repaint à la fin de ton code? ça permet de revoir l'affichage des éléments contenus dans le userform, comme les images par exemple.

BOnjour,

J'ai déjà utilisé une fonction dans le même style pour un "Trombi" , pour ne pas être embêté avec les dimensions différentes des photos :

Dans mon userform j'ai insérée l'image dans une Frame et pour la propriété "PictureSizeMode"

j'ai indiqué ModeZoom.

J'ai aussi prévue une image fond noir dans les cas ou la photo du trombi n'existe pas il selectionne celle à fond noir.

Salut

Je vous remercie je vais essayé

Bonne journée

Max