Propriété Timing.SmoothEnd (PowerPoint)

Article
04/07/2023

Détermine si une animation doit décélérer sur la fin. Lecture-écriture.

Syntaxe

expression. SmoothEnd

Expression Variable qui représente un objet Timing .

Valeur renvoyée

MsoTriState

Remarques

La valeur de la propriété SmoothEnd peut être l’une de ces constantes MsoTriState.

Constante	Description
msoFalse	Valeur par défaut. L’animation ne décélère pas sur la fin.
msoVrai	L’animation décélère sur la fin.

Exemple

L’exemple suivant montre comment ajouter une forme à une diapositive, l’animer et faire en sorte qu’elle décélère sur la fin.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds shape 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)

    'Sets duration of effect and slows animation at end
    With effDiamond.Timing
        .Duration = 5
        .SmoothEnd = msoTrue
    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.

Partager via