Menu

Insertar una barra de progreso en PowerPoint

USESFRBR
Haz una pregunta

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:


Consulta también