Bonjour,
Dans un classeur Excel, sur la feuil1, j'ai une image clipart (Image 1). Je voudrais créer une animation.
Voici le code :
Le problème est que je n'arrive pas à lancer l'animation.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Sub DéplaceImage(Img As Integer) Dim i As Integer, T As Double For i = 1 To 26 ' Boucle pour faire une rotation de la voiture. ActiveSheet.Shapes(Img).IncrementRotation (i) ' Rotation. T = Timer: While T + 0.05 > Timer: Wend ' Pour faire une pause. DoEvents ' Actualise l'écran. Next i ActiveSheet.Shapes(Img).Rotation = 0 ' Remet à 0. For i = 1 To 300 ' Boucle pour déplacer horizontalement la voiture. ActiveSheet.Shapes(Img).IncrementLeft 1 ' Déplace d'un pixel à droite. T = Timer: While T + 0.01 > Timer: Wend ' Pour faire une pause. DoEvents ' Actualise l'écran. Next i End Sub
Merci pour votre aide.
Partager