Propriété Timing.Accelerate (PowerPoint)

Renvoie ou définit le pourcentage souhaité de la durée d’une accélération avec minutage. Lecture-écriture.

Syntaxe

expression. Accelerate

expression Variable qui représente un objet Minutage .

Valeur renvoyée

Unique

Remarques

La valeur 0,9 signifie, par exemple, que l’accélération doit commencer à une vitesse inférieure à la vitesse par défaut et durer 90 % du temps total de l’animation, et que les derniers 10 % de l’animation doivent se dérouler à la vitesse par défaut.

Pour ralentir une animation à la fin, utilisez la propriété Decelerate .

Exemple

Cet exemple montre comment ajouter une forme et une animation. Il montre également comment définir une vitesse de départ qui soit lente pendant 30 % de la séquence d’animation et qui rejoigne ensuite la vitesse par défaut.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds rectangle and specifies effect to use for rectangle
    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)

    'Specifies the acceleration for the effect

    With effDiamond.Timing
        .Accelerate = 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.