Insérer une barre de progression sous PowerPoint

Décembre 2016


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 :

A voir également :

Ce document intitulé «  Insérer une barre de progression sous PowerPoint  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.