Menu
Donnez votre avis

Insérer une barre de progression sous PowerPoint

Posez votre question

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 :
Ajouter un commentaire

Commentaires

Commenter la réponse de manudam