Nota
O acceso a esta páxina require autorización. Pode tentar iniciar sesión ou modificar os directorios.
O acceso a esta páxina require autorización. Pode tentar modificar os directorios.
Establece o devuelve un objeto ColorFormat que representa el valor de color RGB de un comportamiento de animación. Lectura y escritura.
Sintaxis
expresión. To
expresión Variable que representa un objeto ColorEffect .
Valor devuelto
ColorFormat
Observaciones
Use esta propiedad junto con la propiedad From para pasar de un color a otro.
No confunda esta propiedad con la ToX o ToY de propiedades de los objetos ScaleEffect y MotionEffect, que sólo se usan para los efectos de ajuste y movimiento.
Ejemplo
En el siguiente ejemplo se agrega un efecto de color y se modifica el color de verde claro azulado a amarillo.
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
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.