Class AnimationSettings (PowerPoint VBA)

The class AnimationSettings represents the special effects applied to the animation for the specified shape during a slide show.


To use a AnimationSettings class variable it first needs to be instantiated, for example

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

The following procedures can be used to set variables of type AnimationSettings: Shape.AnimationSettings and ShapeRange.AnimationSettings


AdvanceMode returns or sets a value that indicates whether the specified shape animation advances only when clicked or automatically after a specified amount of time.

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

AdvanceTime returns or sets the amount of time, in seconds, after which the specified shape will become animated.

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

AfterEffect returns or sets a PpAfterEffect constant that indicates whether the specified shape appears dimmed, hidden, or unchanged after it is built.

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

Animate determines whether the specified shape is animated during a slide show.

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

AnimateBackground if the specified object is an AutoShape, specifies if the shape is animated separately from the text it contains.

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

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.

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

AnimationOrder returns or sets an integer that represents the position of the specified shape within the collection of shapes to be animated.

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

ChartUnitEffect returns or sets a value that indicates whether the graph range is animated by series, category, or element.

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

DimColor returns or sets a ColorFormat object that represents the color of the specified shape after it is been built.

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

EntryEffect for the AnimationSettings object, this property returns or sets the special effect applied to the animation for the specified shape.

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

Parent returns the parent object for the specified object.

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

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 = ActivePresentation.Slides(2).Shapes(2).AnimationSettings.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 = ActivePresentation.Slides(2).Shapes(2).AnimationSettings.SoundEffect

TextLevelEffect indicates whether the text in the specified shape is animated by first-level paragraphs, second-level paragraphs, or some other level of paragraphs (up to fifth-level paragraphs).

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

TextUnitEffect indicates whether the text in the specified shape is animated paragraph by paragraph, word by word, or letter by letter.

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