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.
Voici comment procéder:
Une fois le diaporame 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 :
