Powerpoint 2007 : insérer une barre de progression dans vos présentations

Ouvrez Powerpoint 2007 et dans un premier temps, créez votre présentation. La barre de progression s'installe en dernier.
Une fois votre présentation créée, vous devez afficher l'onglet Développeur dans la barre de menu en haut. Pour cela, cliquez sur le bouton Office, puis sur Options Powerpoint. Dans le menu Standard, cochez la case Afficher l'onglet Développeur dans le ruban puis terminez par Ok.

Allez ensuite dans cet onglet Développeur et cliquez sur Visual Basic. Dans le menu Insertion, cliquez sur Module. Une fenêtre s'ouvre, copiez le texte ci-dessous :
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

Dans le menu Fichier, cliquez sur Fermer et retourner à Microsoft Powerpoint. Cliquez maintenant sur Maccros dans l’onglet Développeur. Une nouvelle fenêtre s’ouvre et vous propose AddProgressBar. Cliquez sur Exécuter et le tour est joué !

Votre présentation possède désormais une barre de progression en bas de chaque diapositive !