Quelques mots de remerciements seront grandement appréciés.

Insérer une barre de progression sous PowerPoint

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 .