Insertar una barra de progreso en PowerPoint

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:


Jean-François Pillou

Nuestros contenidos son redactados en colaboración con expertos del ámbito tecnológico bajo la dirección de Jean-François Pillou, fundador de CCM.net y director digital en el Grupo Figaro. CCM es un sitio de tecnología líder a nivel internacional y está disponible en 11 idiomas.

Más información sobre el equipo de CCM

Consulta también