KioskeaKioskeaCommentCaMarcheInscrivez-vous, c'est gratuit !
Vendredi 16 mai 2008 - 07:13:26

Insérer une barre de progression sous PowerPoint

Vous êtes ici : Astuces Bureautique Powerpoint
Thèmes de "Powerpoint"
Insérer une barre de progression sous PowerPoint dogfriend lundi 12 novembre 2007 à 17:57:48 Jeff

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 :

 

Autres Astuces dans la catégorie Powerpoint