Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de changer d’annuaire.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de changer d’annuaire.
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.