How to remove all animation effects in ppt at once?

Source: Internet
Author: User

Add a lot of animation effect in ppt, want a delete is too troublesome, we use some code technique here to delete all the animations in the PPT in bulk, don't understand the friends to learn together.

How to remove all animation effects in ppt at once?

Through the PPT software VBA to solve, almost searched all the websites, finally found the answer, the code for you to share.

The code is as follows:

Sub RemoveAll ()

Dim I as Integer:dim J as Integer

Dim Oactivepres as Object

Set oactivepres = ActivePresentation

With Oactivepres

For I = 1 to. Slides.count

If Val (application.version) < Then

For J = 1 to. Slides (I). Shapes.count

. Slides (I). Shapes (J). Animationsettings.animate = MsoFalse

Next J

Else

For J =. Slides (I). TimeLine.MainSequence.Count to 1 Step-1

. Slides (I). Timeline.mainsequence (J). Delete

Next J

End If

Next I

End With

Set oactivepres = Nothing

End Sub

Additional method Two:

The same effect can be achieved by setting the PPT to "play without animation" when the PPT show is set up.

Related Article

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.