Clase Effect (PowerPoint VBA)

La clase Effect representa la información de intervalos de diapositivas de una animación.

El principal procedimiento de la clase Effect es Delete

Set

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

Dim eff as Effect
Set eff = ActivePresentation.SlideMaster.TimeLine.MainSequence(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Effect : Sequence.Item, Sequence.Clone, Sequence.AddEffect, Sequence.AddTriggerEffect, Sequence.ConvertToAfterEffect, Sequence.ConvertToAnimateBackground, Sequence.ConvertToAnimateInReverse, Sequence.ConvertToBuildLevel, Sequence.ConvertToTextUnitEffect, Sequence.FindFirstAnimationFor, Sequence.FindFirstAnimationForClick, Sequences.Item, Sequences.Add y TimeLine.MainSequence

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Add with its procedures Sequence.AddEffect y Sequence.AddTriggerEffect

Métodos

Este es el método principal de la clase Effect

Delete - Elimina el objeto Effect especificado.

ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Delete

Otros Métodos

Sequence.Clone - Crea una copia de un objeto Effect y la agrega a la colección Sequences en la posición de índice especificada.

Dim effClone As Effect
Set effClone = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.Clone(Effect:=)

Sequence.ConvertToAfterEffect - Especifica lo que debe hacer un efecto después de que finalice. Devuelve un objeto Effect que representa un efecto posterior.

Dim effConvertToAfterEffect As Effect
Set effConvertToAfterEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAfterEffect(Effect:=, After:=msoAnimAfterEffectDim)

Sequence.ConvertToAnimateBackground - Determina si el fondo se animará independientemente de, o además de, el texto que lo acompaña. Devuelve un objeto Effect que representa el efecto de animación recién modificado.

Dim effConvertToAnimateBackground As Effect
Set effConvertToAnimateBackground = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAnimateBackground(Effect:=, AnimateBackground:=msoTrue)

Sequence.ConvertToAnimateInReverse - Determina si el texto se anima en orden inverso. Devuelve un objeto Effect que representa la animación de texto.

Dim effConvertToAnimateInReverse As Effect
Set effConvertToAnimateInReverse = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAnimateInReverse(Effect:=, animateInReverse:=msoTrue)

Sequence.ConvertToBuildLevel - Cambia la información de nivel de generación de un efecto de animación especificado. Devuelve un objeto Effect que representa la información de nivel de generación.

Dim effConvertToBuildLevel As Effect
Set effConvertToBuildLevel = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToBuildLevel(Effect:=, Level:=msoAnimateChartAllAtOnce)

Sequence.ConvertToTextUnitEffect - Devuelve un objeto Effect que representa cómo se debe animar el texto.

Dim effConvertToTextUnitEffect As Effect
Set effConvertToTextUnitEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToTextUnitEffect(Effect:=, unitEffect:=msoAnimTextUnitEffectByCharacter)

Propiedades

Behaviors Devuelve el comportamiento de animación de la diapositiva especificada como colección AnimationBehaviors.

Dim absBehaviors As AnimationBehaviors
Set absBehaviors = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors

DisplayName Devuelve el nombre de un efecto de animación. Solo lectura.

Dim strDisplayName As String
strDisplayName = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).DisplayName

EffectInformation Devuelve un objeto EffectInformation que representa la información de un efecto de animación especificado.

Dim einEffectInformation As EffectInformation
Set einEffectInformation = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation

EffectParameters Devuelve un objeto EffectParameters que representa las propiedades del efecto de animación.

Dim epsEffectParameters As EffectParameters
Set epsEffectParameters = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectParameters

EffectType Establece o devuelve una constante MsoAnimEffect que representa el tipo de efecto de animación. Lectura y escritura.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectType = msoAnimEffect3DArrive

Exit Determina si el efecto de animación es un efecto de salida. Lectura y escritura.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Exit = msoTrue

Index Devuelve un Long que representa el número de índice de un efecto de animación o diseño. Solo lectura.

Dim lngIndex As Long
lngIndex = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Index

Paragraph Devuelve o establece el párrafo de un intervalo de texto al que se aplican los efectos de animación. Lectura y escritura.

ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Paragraph =

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Parent

Shape Devuelve un objeto Shape que representa una forma animada.

Set ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Shape =

TextRangeLength Devuelve o establece un Long que representa la longitud de un intervalo de texto. Solo lectura.

Dim lngTextRangeLength As Long
lngTextRangeLength = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).TextRangeLength

TextRangeStart Devuelve o establece el inicio de un intervalo de texto. Solo lectura.

Dim lngTextRangeStart As Long
lngTextRangeStart = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).TextRangeStart

Timing Devuelve un objeto Timing que representa las propiedades de tiempo de una secuencia de animación.

Dim tmnTiming As Timing
Set tmnTiming = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Timing

Sequence.Count Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.Count

Sequence.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.Parent