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
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Envoyer et afficher des commentaires pour