PowerPoint animaties overslaan

Geplaatst op door

Met PowerPoint kunnen doeltreffende animaties worden gemaakt om het publiek mee te nemen bij een verhaal. Een mooi voorbeeld is een geanimeerde opsomming-lijst.

Helaas kunnen deze animaties zo net irritant worden als doeltreffend. Zeker bij het navigeren naar vorige dia's kan het opnieuw afspelen van animaties als storend worden ervaren.

In dit artikel worden 3 mogelijke oplossingen aangeboden.

1. Navigeer direct naar dia

Met deze optie kan er direct naar een andere dia worden genavigeerd.

Windows MAC
[CTRL] + [S]
  • Rechtermuis klik
  • Op titel

2. Animaties uitschakelen

Een andere route is om de animaties voor de gehele presentatie uit te schakelen.

  • Tabblad [Diavoorstelling];
  • Diavoorstelling instellen;
  • Voorstelling zonder animatie.

3. Sneltoetsen toewijzen

Deze laatste oplossing is mijn inziens de mooiste. M.b.v. van de programmeertaal VBA kan er een script geïnstalleerd worden zodat de onderstaande functietoetsen kunnen worden gebruikt. Voor Windows werkt het script perfect, voor de MAC werkt het helaas erg vertragend.

Windows MAC
Speel alle animaties af [Enter] [→]
Reset alle animaties [Backspace] [←]
  • Maak een nieuwe lege presentatie;
  • Druk op [ALT] + [F11] om naar de Visual Basic Editor te gaan;
  • Maak een module (Invoegen | Module) genaamd modMain;
  • Plak de code;
  • Maak een klassenmodule ( Invoegen | Klassenmodule) genaamd clsEvents;
  • Plak de code;
  • Bewaar de presentatie als PowerPoint-Invoegtoepassing, bijvoorbeeld met de naam App.ppam;
  • Ga naar Bestand | Opties | Invoegtoepassingen;
  • Ga naar [Beheren] en selecteer [PowerPoint-invoegtoepassingen];
  • Druk op knop [Start...] en [Nieuwe toevoegen...];
  • Selecteer de zojuist opgeslagen invoegtoepassing;
  • Druk op [Sluiten] en sluit Powerpoint.

De volgende keer dat een presentatie op deze PC wordt geopend, kunnen alle animaties worden afgespeeld met [Enter] en worden teruggespoeld met [Backspace].

modMain
view source
print?
01Option Explicit
02 
03#If Win64 Then
04    Public Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
05#Else
06    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
07#End If
08 
09Public AE As New clsEvents
10     
11Sub Auto_Open()
12   
13    Set AE.App = Application
14   
15End Sub
clsEvents
view source
print?
01Option Explicit
02 
03Const VK_ENTER As Integer = 13
04Const VK_BACKSPACE As Integer = &H8
05 
06Public WithEvents App As Application
07 
08Private Sub App_SlideShowOnNext(ByVal Wn As SlideShowWindow)
09 
10    If GetAsyncKeyState(VK_ENTER) < 0 Then Wn.View.GotoClick (msoClickStateAfterAllAnimations)
11  
12End Sub
13 
14Private Sub App_SlideShowOnPrevious(ByVal Wn As SlideShowWindow)
15 
16    If GetAsyncKeyState(VK_BACKSPACE) < 0 Then Wn.View.GotoClick (msoClickStateBeforeAutomaticAnimations)
17      
18End Sub