Agence web » Actualités du digital » Comment créer une barre de progression dans Microsoft PowerPoint

Comment créer une barre de progression dans Microsoft PowerPoint

Logo Microsoft PowerPoint

Une barre de progression est un graphique qui, dans PowerPoint, représente visuellement le pourcentage du diaporama terminé. C’est aussi un bon indicateur du montant restant. Voici comment créer une barre de progression dans Microsoft PowerPoint.

Vous pouvez créer manuellement une barre de progression en insérant une forme au bas de chaque diapositive. Le problème avec cette approche est que vous devrez mesurer la longueur de chaque forme en fonction du nombre de diapositives de la présentation. De plus, si vous ajoutez ou supprimez une diapositive, vous devrez refaire manuellement la barre de progression sur chaque diapositive du diaporama.

Pour que tout reste cohérent et vous éviter de graves maux de tête, vous pouvez utiliser une macro pour créer une barre de progression. Avec cette macro, la barre de progression s’ajustera automatiquement en fonction du nombre de diapositives de la présentation.

Tout d’abord, ouvrez la présentation PowerPoint pour laquelle vous souhaitez créer une barre de progression. Une fois ouvert, cliquez sur l’onglet « Affichage », puis sélectionnez « Macros ».

La fenêtre «Macro» apparaîtra. Dans la zone de texte sous «Nom de la macro», saisissez un nom pour votre nouvelle macro. Le nom ne peut pas contenir d’espaces. Une fois qu’il est entré, cliquez sur «Créer» ou, si vous utilisez Mac, cliquez sur l’icône «+».

La fenêtre «Microsoft Visual Basic pour Applications (VBA)» va maintenant s’ouvrir. Dans l’éditeur, vous verrez ce code:

Sub ProgressBar()

End Sub

Tout d’abord, placez votre curseur entre les deux lignes de code.

Ensuite, copiez et collez ce code:

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

Une fois collé, votre code devrait ressembler à ceci dans l’éditeur.

Noter: Il n’y a plus de sauts de ligne entre la première et la dernière ligne de code.

Vous pouvez maintenant fermer la fenêtre VBA. De retour dans Microsoft PowerPoint, cliquez à nouveau sur «Macros» dans l’onglet «Affichage».

Ensuite, choisissez le nom de votre macro (« ProgressBar » dans notre exemple) pour la sélectionner, puis cliquez sur « Exécuter ».

La barre de progression apparaîtra désormais au bas de chaque diapositive de votre présentation.

Si vous supprimez une diapositive, la barre de progression s’ajustera automatiquement. Si vous ajoutez une nouvelle diapositive, vous devrez réexécuter la macro (Affichage> Macro> Exécuter). C’est un inconvénient mineur par rapport au réglage manuel de tout.

★★★★★