propriété ColorEffect.To (PowerPoint)
Définit ou renvoie un objet ColorFormat que représente la valeur de couleur RVB d’une animation. Lecture-écriture.
Syntaxe
expression. To
Expression Variable qui représente un objet ColorEffect .
Valeur renvoyée
ColorFormat
Remarques
Utilisez cette propriété en association avec la propriété From pour une transition d’une couleur à une autre.
Ne confondez pas cette propriété avec les propriétés ToX ou ToY des objets ScaleEffect et MotionEffect , qui sont utilisés uniquement pour la mise à l’échelle ou les effets de mouvement.
Exemple
Cet exemple ajoute un effet de couleur et change sa couleur de bleu-vert clair à jaune.
Sub AddAndChangeColorEffect()
Dim effBlinds As Effect
Dim tmlTiming As TimeLine
Dim shpRectangle As Shape
Dim animColor As AnimationBehavior
Dim clrEffect As ColorEffect
Set shpRectangle = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeRectangle, Left:=100, _
Top:=100, Width:=50, Height:=50)
Set tmlTiming = ActivePresentation.Slides(1).TimeLine
Set effBlinds = tmlTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
effectId:=msoAnimEffectBlinds)
Set animColor = tmlTiming.MainSequence(1).Behaviors _
.Add(Type:=msoAnimTypeColor)
Set clrEffect = animColor.ColorEffect
clrEffect.From.RGB = RGB(Red:=255, Green:=255, Blue:=0)
clrEffect.To.RGB = RGB(Red:=0, Green:=255, Blue:=255)
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.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour