VBA faire pivoter un objet (animation)

Le 03/03/2010 à 00:15

Bonjour à tous,

Je cherche à faire une petite animation,

en faisant pivoter un objet (type rectangle) sur lui-même de 360°suivant un tempo.

Un peu sur le principe suivant qui lui déplace l'objet suivant .Top et .Left

Sub Papillon()
Dim i%
    'le papillon se déplace
    With ActiveSheet.DrawingObjects("Rectangle 3")
        .Visible = True
        For i = 50 To 400 Step 5
        Application.Wait Time:=Now() + 0.000001
            .Top = i
            .Left = i
        Next
    End With
End Sub

Quel serait le bon code ?

Je suis preneur d'autres idées

Amicalement

Claude

Le 03/03/2010 à 00:40

Salut le forum

As-tu essayé la proprieté rotation de l'objet...

ActiveSheet.Shapes("MaForme").Rotation = 112

Mytå

Le 03/03/2010 à 01:36

Bonjour Mytå,

Super !

On peut même juguler avec le Top, ce qui donne un effet pas mal du tout.

Sub essai()
Dim i%
    'l'objet pivote
    With ActiveSheet.Shapes("Rectangle 2")
        For i = 360 To 0 Step -3
            Application.Wait Time:=Now() + 0.000001
            .Rotation = i
            'Top = i + 50
            '.Left = i + 50
        Next
    End With
End Sub

reste à savoir si tu as une combine ou une règle pour régler la vitesse d'exécution ?

par tâtonnement, je vois que l'on peut jouer sur le Step,

mais le "Application.Wait Time:=Now() + 0.000001" est exprimé en quoi ? et est-ce la bonne méthode ?

C'est un bout de code que j'avais pompé sur une revue.

Suivant les PC, il y a du réglage à faire pour la vitesse,je crois.

En tout cas, merci beaucoup

Amicalement

Claude

Le 03/03/2010 à 03:05

Re le forum

Claude un délai programmable en millisecondes

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub DelayTest()
Dim i As Integer

For i = 1 To 5
    Sleep 500 'Délai en millisecondes
    MsgBox "Délai boucle " & i
Next

End Sub

Mytå

45copie-de-2.xlsm (27.54 Ko)

50copie-de-3.xlsm (23.05 Ko)

Le 03/03/2010 à 09:49

Bonjour à tous,

Myta, je n'arrive pas à faire fonctionner ton code correctement,

Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub DelayTest()
Dim i As Integer
    With ActiveSheet.Shapes("Rectangle 1")
        For i = 1 To 180
            Sleep 500 'Délai en millisecondes
            .Rotation = i
        Next
    End With
End Sub

Je n'obtiens pas d'animation, qu'est-ce que ce "kernel32" ?

j'ai mis ici For i = 1 To 180, mais je voudrais pivoter de 360°

Pourrais-tu m'écrire le code complet

Merci Mytå

Claude

Le 03/03/2010 à 14:44

Bonjour Claude et Myta,

désolé de m'immiscer dans ce post. Ajoute DoEvent après la rotation:

Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub DelayTest()
Dim i As Integer
    With ActiveSheet.Shapes("Rectangle 1")
        For i = 1 To 360
            Sleep 10 'Délai en millisecondes
            .Rotation = i
            DoEvents
        Next
    End With
End Sub

Le 03/03/2010 à 19:25

re forum, bonsoir Math,

Merci pour ton intervention, j'arrive à peu près au résultat souhaité en mettant: Sleep 0.2 au lieu de 10

Je me retrouve maintenant avec l'embarras du choix entre ces 2 codes (même résultat)

ce qui me gène dans le 1er, c'est que je ne comprends pas la ligne

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub DelayTest()
Dim i As Integer
    With ActiveSheet.Shapes("Rectangle 1")
        For i = 0 To 360 Step 2
            Sleep 0.2 'Délai en millisecondes
            .Rotation = i
            DoEvents
        Next
    End With
End Sub

et l'autre méthode

Sub essai()
Dim i As Integer
    With ActiveSheet.Shapes("Rectangle 3")
        For i = 0 To 360 Step 10
            Application.Wait Time:=Now() + 0.000001
            .Rotation = i
        Next
    End With
End Sub

Dans les 2 cas, le Step joue pour beaucoup

Votre avis sur la méthode la + fiable ?

sachant que je ne fais pas d'action en arrière plan

Amicalement

Claude

Le 04/03/2010 à 14:25

ce qui me gène dans le 1er, c'est que je ne comprends pas la ligne
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

c'est un appel a une API de Windows. Je ne peux pas vraiment t'expliquer en détail, c'est le genre de ligne que tu apprend par coeur parce que c'est un peu plus complexe et que tu n'as pas le temps , mais pour plus de détail: http://jacxl.free.fr/cours_xl/cours_xl_jac.html#api_s

pour ce qui est des deux codes, j'aurais tendance à penser que le premier qui utilise les API est plus stable car c'est windows qui gère la pause et non Excel, mais bon, je crois que dans ton cas précis les deux se valent.

Le 04/03/2010 à 15:15

Bonjour à tous,

Merci du tuyau, je viens d'opter provisoirement pour la 2ème méthode,

il s'agit de ce lien, si çà intéresse: (bouton "Continuer")

https://forum.excel-pratique.com/excel/integrer-un-tri-et-un-controle-de-saisie-dans-un-tableau-t15493.html

encore merci Math et Mytå

Amicalement

Claude

Le 04/03/2010 à 22:31

Re le forum

Pour une liste complète (Version Anglaise) `: http://allapi.mentalis.org/

Mytå