Follow me on Twitter and see How-To Videos on my YouTube channel.
New tips for paralegals and litigation support profesionals are posted to this site each night. Click on the blog headings for better detail.
The views expressed in this blog are those of the owner and do not reflect the views or opinions of the owner’s employer. All content provided on this blog is for informational purposes only. The owner of this blog makes no representations as to the accuracy or completeness of any information on this site or found by following any link on this site. The owner will not be liable for any errors or omissions in this information nor for the availability of this information. The owner will not be liable for any losses, injuries, or damages from the display or use of this information. This policy is subject to change at any time. The owner is not an attorney, and nothing posted on this site should be construed as legal advice. Litigation Support Tip of the Night does not provide confirmation that any e-discovery technique or conduct is compliant with legal, regulatory, contractual or ethical requirements.
Tonight's tip concerns visual basic code I crafted on the basis of the macro posted here by Chris Newman which is designed to remove all animation on all slides of a PowerPoint presentation. The vba code posted below will change all of the animation set for all shapes on all slides to the simple 'Appear' effect. Simply enter Visual Basic by pressing ALT + F11, and then enter the code in a new module.
On the line beginning, "sld.TimeLine.MainSequence.Item(x).EffectType =", you can enter whatever animation effect you choose. When you begin to enter text at the end of this line, Visual Basic will display the available animation effects.
Sub ChangeAllAnimations() 'PURPOSE: Remove All PowerPoint Animations From Slides 'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault
Dim sld As Slide Dim x As Long Dim Counter As Long
'Loop Through Each Slide in ActivePresentation For Each sld In ActivePresentation.Slides
'Loop through each animation on slide For x = sld.TimeLine.MainSequence.count To 1 Step -1
'Change Each Animation sld.TimeLine.MainSequence.Item(x).EffectType = msoAnimEffectAppear
'Maintain Change Stat Counter = Counter + 1
'Completion Notification MsgBox Counter & " Animation(s) were changed in your PowerPoint presentation!"