Clase AnimationSettings (PowerPoint VBA)

La clase AnimationSettings representa los efectos especiales aplicados a la animación de la forma especificada durante una presentación con diapositivas.

Set

Para usar una variable de clase AnimationSettings, primero debe ser instanciado, por ejemplo

Dim ass as AnimationSettings
Set ass = ActiveWindow.RangeFromPoint.AnimationSettings

Los siguientes procedimientos se pueden usar para establecer variables de clase AnimationSettings : Shape.AnimationSettings y ShapeRange.AnimationSettings

Propiedades

AdvanceMode Devuelve o establece un valor que indica si la animación de la forma especificada avanza solamente al hacer clic o automáticamente después de un período de tiempo determinado. Lectura y escritura.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AdvanceMode = ppAdvanceModeMixed

AdvanceTime Devuelve o establece la cantidad de tiempo, en segundos, a partir de la cual se animará la forma especificada. Lectura y escritura.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AdvanceTime = 5

AfterEffect Devuelve o establece una constante PpAfterEffect que indica si la forma especificada aparece atenuada, oculta o sin cambios después de su creación. Lectura y escritura.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AfterEffect = ppAfterEffectDim

Animate Determina si la forma especificada tiene animación durante la presentación con diapositivas. Lectura y escritura.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.Animate = msoTrue

AnimateBackground Si el objeto especificado es una autoforma, especifica si la forma se anima por separado del texto que contiene. Lectura y escritura.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AnimateBackground = msoTrue

AnimateTextInReverse Determina si la forma especificada se anima en orden inverso. Se aplica solo a formas (como, por ejemplo formas que contienen listas) que se pueden animar en más de un paso. Lectura y escritura.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AnimateTextInReverse = msoTrue

AnimationOrder Devuelve o establece un entero que representa la posición de la forma especificada en la colección de formas que se va a animar. Lectura y escritura.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AnimationOrder = 2

ChartUnitEffect Devuelve o establece un valor que indica si el intervalo del gráfico está animado por serie, categoría o elemento. Lectura y escritura.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.ChartUnitEffect = ppAnimateByCategory

DimColor Devuelve o establece un objeto ColorFormat que representa el color de la forma especificada una vez creada. Solo lectura.

Dim cftDimColor As ColorFormat
Set cftDimColor = ActivePresentation.Slides(2).Shapes(2).AnimationSettings.DimColor

EntryEffect Para el objeto AnimationSettings , esta propiedad devuelve o establece el efecto especial aplicado a la animación de la forma especificada. Lectura y escritura.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.EntryEffect = ppEffectAirplaneLeft

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.AnimationSettings.Parent

PlaySettings Devuelve un objeto PlaySettings que contiene información acerca de cómo se reproduce el clip multimedia especificado durante una presentación con diapositivas. Solo lectura.

Dim pssPlaySettings As PlaySettings
Set pssPlaySettings = ActivePresentation.Slides(2).Shapes(2).AnimationSettings.PlaySettings

SoundEffect Devuelve un objeto SoundEffect que representa el sonido que se reproducirá durante la transición a la diapositiva especificada. Es de sólo lectura.

Dim setSoundEffect As SoundEffect
Set setSoundEffect = ActivePresentation.Slides(2).Shapes(2).AnimationSettings.SoundEffect

TextLevelEffect Indica si el texto de la forma especificada está animado por párrafos de primer nivel, de segundo nivel o de otro nivel (hasta párrafos de quinto nivel). Lectura y escritura.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.TextLevelEffect = ppAnimateByAllLevels

TextUnitEffect Indica si el texto de la forma especificada está animado por párrafos, por palabras o por letras. Lectura y escritura.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.TextUnitEffect = ppAnimateByCharacter