This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. As Long Dim TotalChanges As Long ' Used for error trapping. On Error Resume Next Err. Clear ' Initialize the counters.
Outer loop goes through every slide in the Active presentation.
For Each SlideObject In Application. Slides ' Inner loop goes through every shape in the presentation. For Each ShapeObject In SlideObject. Shapes With ShapeObject. This property must be set to True for any of the ' other properties of the AnimationSettings object ' to take effect.