Propriété Timing.Decelerate (PowerPoint)

Définit ou renvoie le pourcentage de la durée pendant laquelle une décélération temporelle doit avoir lieu. Lecture-écriture.

Syntaxe

expression. Decelerate

expression Variable qui représente un objet Timing .

Valeur renvoyée

Unique

Remarques

Par exemple, la valeur 0,9 signifie que l’animation doit commencer à la vitesse par défaut pendant les premiers 10 %, avant de ralentir.

Exemple

Cet exemple montre comment ajouter une forme et comment lui attribuer une animation qui commence à la vitesse par défaut et décélère après qu’elle s’est exécutée à 70 %.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds rectangle and sets animation effect

    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

    Set effDiamond = ActivePresentation.Slides(1).TimeLine _
        .MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectPathDiamond)

    'Slows the effect after seventy percent of the animation has finished

    With effDiamond.Timing
        .Decelerate = 0.3
    End With

End Sub

Voir aussi

Objet Minutage

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.