Propriété AnimationPoint.Time (PowerPoint)

Définit ou renvoie le temps à un point d’animation donné. Lecture-écriture.

Syntaxe

expression. Temps

Expression Variable qui représente un objet SlideShowTransition .

Valeur renvoyée

Unique

Remarques

La propriété Time peut correspondre à toute valeur à virgule flottante comprise entre 0 et 1 et représentant un pourcentage situé entre 0 % et 100 % du découpage total du temps. La valeur 0,2, par exemple, correspond à un point situé à 20 % du découpage de gauche à droite du temps.

Exemple

Cet exemple montre comment insérer trois points d’animation avec couleurs de remplissage dans la chronologie de la séquence d’animation principale pour la première diapositive.

Sub BuildTimeLine()

    Dim shpFirst As Shape
    Dim effMain As Effect
    Dim tmlMain As TimeLine
    Dim aniBhvr As AnimationBehavior
    Dim aniPoint As AnimationPoint

    Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
    Set tmlMain = ActivePresentation.Slides(1).TimeLine
    Set effMain = tmlMain.MainSequence.AddEffect(Shape:=shpFirst, _
        EffectId:=msoAnimEffectBlinds)

    Set aniBhvr = tmlMain.MainSequence(1).Behaviors.Add _
        (Type:=msoAnimTypeProperty)

    With aniBhvr.PropertyEffect
        .Property = msoAnimShapeFillColor
        Set aniPoint = .Points.Add
        aniPoint.Time = 0.2
        aniPoint.Value = RGB(0, 0, 0)
        Set aniPoint = .Points.Add
        aniPoint.Time = 0.5
        aniPoint.Value = RGB(0, 255, 0)
        Set aniPoint = .Points.Add
        aniPoint.Time = 1
        aniPoint.Value = RGB(0, 255, 255)
    End With

End Sub

Voir aussi

AnimationPoint, objet

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.