Propriété Timing.SmoothStart (PowerPoint)

Article
04/07/2023

Détermine si une animation doit accélérer lorsqu’elle commence. En lecture/écriture

Syntaxe

expression. SmoothStart

Expression Variable qui représente un objet Timing .

Valeur renvoyée

MsoTriState

Remarques

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

Constante	Description
msoFalse	Valeur par défaut. L’animation n’accélère pas lorsqu’elle commence.
msoVrai	L’animation accélère lorsqu’elle commence.

Exemple

L’exemple suivant montre comment ajouter une forme à une diapositive, l’animer et faire en sorte qu’elle accélère lorsqu’elle commence.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    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)

    With effDiamond.Timing
        .Duration = 5
        .SmoothStart = 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.