INSERER UNE BARRE DE PROGRESSION

Pour permettre de visualiser l'avancement d'un exposé, une barre de progression peut être affichée en bas du diaporama.

Comment procéder:

Une fois le diaporama réalisé, allez dans Outils, Macro et Visual Basic Editor.
Dans la nouvelle fenêtre, allez dans Insertion, Module puis recopiez le texte suivant dans la page blanche :

Sub AddProgressBar()   
    On Error Resume Next   
        With ActivePresentation   
              For X = 1 To .Slides.Count   
              .Slides(X).Shapes("PB").Delete   
              Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _   
              0, .PageSetup.SlideHeight - 12, _   
              X * .PageSetup.SlideWidth / .Slides.Count, 12)   
              s.Fill.ForeColor.RGB = RGB(127, 0, 0)   
              s.Name = "PB"   
              Next X:   
        End With   
End Sub 

Allez ensuite dans Fichier, Fermer et retourner à Microsoft PowerPoint.
Maintenant revenu dans la page normale de PowerPoint, allez dans:
Outils, Macro, Macros, sélectionnez ensuite AddProcessBar puis cliquez sur Exécuter .

Résultat

Au final, la barre ressemble à cela :