PowerPoint Creative
Log In or Register to participate in PPC!
PowerPoint Creative
Log In or Register to participate in PPC!

Go down
matto
matto
Featured Creator
Featured Creator
Posts : 81
Join date : 2022-08-11
Location : Japan

powerpoint - How to Make Realistic Walk Cycle Animation in PowerPoint 2021. Empty How to Make Realistic Walk Cycle Animation in PowerPoint 2021.

Sat Jan 07, 2023 5:21 pm
I was watching this video the other day, and it was really interesting. 



The animation is achieved by using an effect called Flash Once, which is no longer available in modern versions of PowerPoint

OR IS IT???!!!  powerpoint - How to Make Realistic Walk Cycle Animation in PowerPoint 2021. 1f60b 

So the creator of this video said to use an old version of PowerPoint, apply the effect, and open the presentation in a newer version of PowerPoint.

The thing is.... It was never removed from PowerPoint. In order to maintain compatibility with older versions of PowerPoint, Microsoft still has to provide functionality for the effect. It's simply been removed from the effects list within the application. However, it's still listed internally amongst the effects list as 

Code:
msoAnimEffectFlashOnce

MsoAnimEffect 列挙 (PowerPoint) | Microsoft Learn

Well, my friends, this is a PowerPoint Creative Forum exclusive!

Thanks to the magic of VBA, we can apply the Flash Once effect to any shape in a modern version of PowerPoint.  tongue


Step 1: 
Save a macro enabled .pptm PowerPoint presentation. 

Step2: 
Open the .pptm Presentation

Step3: 
Make a rectangle on the first slide and make sure it's named "Rectangle 1".

Step4: 
If you haven't already, enable the Developer Tab. Then, Click on the "Developer Tab"

Step5:
Click "Visual Basic".

Step6:
On the left pane where it says "VBA Project", right click, then click "Insert", then "Module". This will make a new module called "Module1"

Step 7:
Double click "Module 1" and insert the following code into the white pane on the right

Code:
Private Sub Gimmie_Flashonce()
  Dim SHAPE1 As Shape
    Dim EFFECT1 As Effect
    
    Set SHAPE1 = ActivePresentation.Slides(1).Shapes("Rectangle 1")

    Set EFFECT1 = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=SHAPE1, effectId:=msoAnimEffectFlashOnce, _
        Trigger:=msoAnimTriggerWithPrevious)
End Sub


Step 8
Make sure that you have clicked inside the white pane on the right, behind the word "Private Sub". You should see the line and column count as "L1" and "COL1". Then click the tiny green arrow button to run the script. Then, Exit the VBA editor.

Step 9
The Flash Once effect has now been applied to "Rectangle 1". Use the animation painter to copy the effect to your desired shape.
Back to top
Permissions in this forum:
You cannot reply to topics in this forum