Insertar una barra de progreso

Puede ser útil insertar una barra de progreso debajo de las diapositivas para ver el avance de una presentación.

Pasos a seguir

Una vez que hayas realizado tus diapositivas:

• Dirígete a Herramientas / Macro / Editor de Visual Basic.
• En la ventana que aparece ve a Insertar / Módulo
• Ahora copia el código de abajo en la zona de texto en blanco.

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

• Luego dirígete a Archivo / Cerrar y volver a Microsoft PowerPoint
• En la página normal de PowerPoint ve a: Herramientas / Macro / Macros y selecciona AddProcessBar luego haz clic en Ejecutar.

El resultado

Al final tendrás un resultado similar a éste:



PD: El artículo original fue escrito por dogfriend, contribuidor de CommentCaMarche