Animation sur label

Bonjour le forum

Je cherche à animer un label sur mon UF mais je tourne en rond....

Sur mon UF j'ai une image et je souhaite lui donner une animation de translation de la droite vers la gauche tout en réduisant sa largeur. Vous allez voir sur l'UF la photo et la position/taille final que doit avoir cette photo à la fin du processus représentée par le label.

Pour la translation c'est ok, mais je n'arrive pas à gérer la largeur, je ne trouve pas où est mon erreur.

Par avance, merci de l'intérêt porté au sujet, Gautier.

Bonjour Gautier,

Qu'entends tu par "je n'arrive pas à gérer la largeur" ?
A priori je ne vois pas d'erreur dans ton code, à l'exception d'une répétition (qui n'est pas une erreur en soi) dont je ne comprends pas l'utilité

debutCourse = Me.Image1.Left
debutCourse = debutCourse

Cdlt

Jacky

Bonjour toutes et tous

un essai

note : mettre l'image de l'usf soit en stretch ou zoom

Private Sub CommandButton1_Click()

MyStep = 0.1

pause = Me.TextBox1
debutCourse = Me.Image1.Left
debutCourse = debutCourse
finCourse = Me.Label1.Left
debutLargeur = Me.Image1.Width
finLargeur = Me.Label1.Width

a = (debutCourse - finCourse) / MyStep
b = debutLargeur - finLargeur
c = b / a
' On Error GoTo plouf ' facultatif
For i = debutCourse To finCourse Step -MyStep
    Sleep pause
    DoEvents
    Me.Image1.Left = i

    Me.Image1.Width = Me.Image1.Width - c
      Me.Image1.Height = Me.Image1.Height - c
Next i
' plouf: MsgBox "oupss erreur!" ' facultatif
End Sub

Private Sub CommandButton2_Click()
    Me.Image1.Left = Me.Label1.Left + Me.Label1.Width
    Me.Image1.Width = 222  ' largeur
    Me.Image1.Height = 336  ' hauteur
End Sub

Private Sub UserForm_Initialize()
    Call CommandButton2_Click
End Sub

' mettre l'image sur picturesizemode sur stretch 1 - frmpicturesizemodestretch  ou zoom

crdlt,

André

Bonsoir…

Voir l’effet en ajoutant une ligne dans ton code (même idée que André )

…
Image1.PictureSizeMode = 1 'fmPictureSizeModeStretch
For i = debutCourse To finCourse Step -MyStep
…