Detecting motion path animation

  • Hello,
    I'd like to run a macro that will tell the user if there is any type of animation set in the PowerPoint file.

    So far I have managed to detect animation only by looping through each shape in the presentation and using this:

    if shp.AnimationSettings.Animate then animCount=animCount+1

    But, for some reason motion paths animations are ignored. Any idea how I can catch them too?

    Need this macro to work in both ppt2007 and ppt2013.