Class EffectInformation (PowerPoint VBA)
The class EffectInformation represents various animation options for an Effect object. To use a EffectInformation class variable it first needs to be instantiated, for example
Dim ein as EffectInformation
Set ein = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).EffectInformation
AfterEffect
Returns an PpAfterEffect constant that indicates whether an after effect appears dimmed, hidden, or unchanged after it runs. Possible return values are msoAnimAfterEffectDim - Dimmed, msoAnimAfterEffectHide - Hidden, msoAnimAfterEffectHideOnNextClick - Hidden on the next mouse click, msoAnimAfterEffectMixed - Mixed, msoAnimAfterEffectNone - Unchanged.
The value returned by the AfterEffect property can be one of these PpAfterEffect constants.
Dim maaAfterEffect As MsoAnimAfterEffect
maaAfterEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.AfterEffect
AnimateBackground
Returns msoTrue if the specified effect is a background animation.
Use the TextLevelEffectand TextUnitEffect properties to control the animation of text attached to the specified shape. If this property is set to msoTrue and the TextLevelEffect property is set to ppAnimateByAllLevels, the shape and its text are animated simultaneously. If this property is set to msoTrue and the TextLevelEffect property is set to anything other than ppAnimateByAllLevels, the shape is animated immediately before the text is animated. You won't see effects of setting this property unless the specified shape is animated. For a shape to be animated, the TextLevelEffect property for the shape must be set to something other than ppAnimateLevelNone, and either the Animate property must be set to msoTrue, or the EntryEffect property must be set to a constant other than ppEffectNone. The value returned by the AnimateBackground property can be one of these MsoTriState constants.
Dim mtsAnimateBackground As Office.MsoTriState
mtsAnimateBackground = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.AnimateBackground
AnimateTextInReverse
Determines whether the specified shape is built in reverse order. Applies only to shapes (such as shapes containing lists) that can be built in more than one step.
The value of the AnimateTextInReverse Property property can be one of these MsoTriState constants.
Dim mtsAnimateTextInReverse As Office.MsoTriState
mtsAnimateTextInReverse = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.AnimateTextInReverse
BuildByLevelEffect
Determines the level of the animation build effect. Here you can find possible values for
The value returned by the BuildByLevelEffect property can be one of these MsoAnimateByLevel constants.
Dim mabBuildByLevelEffect As MsoAnimateByLevel
mabBuildByLevelEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.BuildByLevelEffect
Dim
Returns a ColorFormat object that represents the color to dim to after an animation is finished.
Dim cftDim As ColorFormat
Set cftDim = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.Dim
PlaySettings
Returns a PlaySettings object that contains information about how the specified media clip plays during a slide show.
Dim pssPlaySettings As PlaySettings
Set pssPlaySettings = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.PlaySettings
SoundEffect
Returns a SoundEffect object that represents the sound to be played during the transition to the specified slide.
Dim setSoundEffect As SoundEffect
Set setSoundEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.SoundEffect
TextUnitEffect
Indicates whether the text in the specified shape is animated paragraph by paragraph, word by word, or letter by letter. Possible return values are msoAnimTextUnitEffectByCharacter - By character, msoAnimTextUnitEffectByParagraph - By paragraph, msoAnimTextUnitEffectByWord - By word, msoAnimTextUnitEffectMixed - Mixed effect.
The value of the TextUnitEffect property can be one of these MsoAnimTextUnitEffect constants.
Dim matTextUnitEffect As MsoAnimTextUnitEffect
matTextUnitEffect = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).EffectInformation.TextUnitEffect