Propiedad AnimationSettings.DimColor (PowerPoint)
Devuelve o establece un objeto ColorFormat que representa el color de la forma especificada una vez creada. Solo lectura.
Sintaxis
expresión. DimColor
Expresión Variable que representa un objeto AnimationSettings .
Valor devuelto
ColorFormat
Comentarios
Si no obtiene el efecto esperado, compruebe la otra configuración de compilación. No verá el efecto de la propiedad DimColor a menos que la propiedad TextLevelEffect del objeto AnimationSettings se establece en un valor distinto de ppAnimateLevelNone, la propiedad AfterEffect está establecida en ppAfterEffectDim y la propiedad Animate se establece en True. Además, si la forma especificada es el único elemento o el último elemento se produzca en la diapositiva, la forma no será atenuada. Para cambiar el orden de generación de las formas en una diapositiva, utilice la propiedad AnimationOrder.
Ejemplo:
En este ejemplo se agrega a la presentación activa una diapositiva que contiene un título y una lista de tres elementos. Además, se establece que el título y la lista se atenúen después de crearlos y se establece el color de atenuación de cada uno de ellos.
With ActivePresentation.Slides.Add(2, ppLayoutText).Shapes
With .Item(1)
.TextFrame.TextRange.Text = "Sample title"
With .AnimationSettings
.TextLevelEffect = ppAnimateByAllLevels
.AfterEffect = ppAfterEffectDim
.DimColor.SchemeColor = ppShadow
.Animate = True
End With
End With
With .Item(2)
.TextFrame.TextRange.Text = "Item one" _
& Chr(13) & "Item two"
With .AnimationSettings
.TextLevelEffect = ppAnimateByFirstLevel
.AfterEffect = ppAfterEffectDim
.DimColor.RGB = RGB(100, 150, 130)
.Animate = True
End With
End With
End With
Consulte 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.