Remove all animations in current PowerPoint presentation

remove_ppt_animation.applescript

on run {input, parameters}
    tell application "Microsoft PowerPoint" -- version: 2019
        set allSlides to slides of active presentation
        repeat with each_slide in allSlides
            set allShapes to shapes of each_slide
            repeat with each_shape in allShapes
                if animate of animation settings of each_shape is true then set animate of animation settings of each_shape to false
            end repeat
        end repeat
    end tell
    return input
end run