Macro powerpoint

La petite macro qui suit sert à afficher au bas de votre présentation Powerpoint une barre de progression du diaporama.
Exécutez PowerPoint et ouvrez la présentation souhaitée.
Cliquez sur le menu Outils, choisissez Macro et validez sur Visual Basic Editor.

Déroulez le menu Insertion, Module et saisissez le listing 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
Une fois la saisie terminée, enregistrez la macro avec pour intitulé AddProgressBar et revenez à votre présentation.Cliquez ensuite sur Outils, Macro, puis double-cliquez sur Macro en sélectionnant « AddProgressBar ».


Une fois cette opération effectuée, vous pouvez lancer votre présentation. La barre située en bas de la présentation s’allongera en fonction de l’avancement du diaporama. Attention si vous souhaitez ajouter ou supprimer des diapositives, il vous sera nécessaire de relancer la macro.