ColorEffect.From, propriété (PowerPoint)
Définit ou renvoie un objet ColorFormat qui représente la valeur de couleur RVB au début d’une animation.
Syntaxe
expression. From
Expression Variable qui représente un objet ColorEffect .
Remarques
Utilisez cette propriété conjointement avec la propriété To pour passer d’une couleur à une autre.
Ne confondez pas cette propriété avec les propriétés FromX ou FromY 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 puis change immédiatement sa couleur.
Sub AddAndChangeColorEffect()
Dim effBlinds As Effect
Dim tlnTiming As TimeLine
Dim shpRectangle As Shape
Dim animColorEffect As AnimationBehavior
Dim clrEffect As ColorEffect
'Adds rectangle and sets effect and animation
Set shpRectangle = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeRectangle, Left:=100, _
Top:=100, Width:=50, Height:=50)
Set effBlinds = t.MainSequence.AddEffect(Shape:=shpRectangle, _
effectId:=msoAnimEffectBlinds)
Set animColorEffect = tlnTimming.MainSequence(1).Behaviors _
.Add(Type:=msoAnimTypeColor)
Set clrEffect = animColorEffect.ColorEffect
'Sets the animation effect starting and ending colors
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