Bonjour à toutes et à tous,
je souhaiterais animer un shape à qui je veux attibuer des propriétés ThreeD.
Je voudrais lui dire à mon objet de tourner selon l'axe X Y éventuellement Z avec un pas mais surtout je voudrais qu'il boucle et affiche en tant réel tous les pas d'incrément de tel sorte qu'on ait l'impression que c'est fluide.
J'ai écrit ce petit bout de code qui fonctionne mais je n'arrive pas à rendre mon animation plus fluide.
Si vous pouviez me guider.
Voici le code :
de plus je ne trouve pas la propriété pour afficher en mode perspective cet objet
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
18
19
20
21 Option Explicit Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) Sub TestShapeAnimation() Dim shp1 As Shape Dim i, j With ActivePresentation.Slides(1) For i = 0 To 20 Step 0.1 Set shp1 = .Shapes(1) shp1.ThreeD.RotationX = i shp1.ThreeD.RotationY = i shp1.ThreeD.RotationZ = i DoEvents Sleep 400 Next i End With End Sub
Et alors le petit plus que je voudrais faire c'est que lorsque j'arrive dans ce slide ma macro se lance automatiquement.
Voilà si certaines ou certains d'entre vous pouviez me guider pour rendre mon animation plus fluide ce serait très sympa.
Bonne journée à toutes et à tous.
Stéfan
Partager