Insertar una barra de progreso en PowerPoint

Octubre 2017


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:


Artículo original escrito por aakai1056. Traducido por Carlos-vialfa. Última actualización: 23 de noviembre de 2008 a las 17:33 por Carlos-vialfa.
El documento «Insertar una barra de progreso en PowerPoint» se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo libremente. No olvides citar a CCM (es.ccm.net) como tu fuente de información.