Discussion :

[folio94]

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 :

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

de plus je ne trouve pas la propriété pour afficher en mode perspective cet objet


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

[Willyfan2bibi]

Salut !

J'ai moi-même déjà essayé ce type de code mais PPT n'est, à mon avis, pas franchement "fait pour ça", impossible en effet de rendre la rotation fluide... Alors que bizarrement sur Excel ça marche avec fluidité !
Je me suis résolu par faire de l'image par image, mais c'est bcp de boulot :

Pour la perspective, j'ignore comment l'activer directement, du coup je sélectionne d'abord un modèle prédéfini de type perspective (rubrique "Rotation 3D > Présélections" sur ton image). Et après je règle le degré de perspective à ma guise.

Voilà, en espérant t'avoir un peu aidé. ^^