Muestra una barra de progreso en tus presentaciones de Powerpoint

¿Quieres informar a tu audiencia del progreso de tu presentación para que sepan en todo momento por dónde vas y cuánto queda para terminar? Mostrar una barra de progreso es una práctica muy recomendable para guiar al público y captar su atención.

(La fecha original de publicación de este artículo es el 19 de enero de 2018, por eso tiene tantas visitas. La nueva fecha corresponde al día de actualización del contenido).

Antes de nada, tengo que reconocer que hasta hace poco utilizaba un método diferente al que te voy a mostrar, pero después de investigar y bucear en Internet, he encontrado una solución más interesante que quiero compartir contigo. Se trata de una macro sencilla que he modificado ligeramente para que su resultado sea más atractivo.

Aprovecho también para recomendarte el artículo: «10 errores que no debes cometer en tus presentaciones». ¡Te va encantar!

Código de VBA

Para crear una barra de progreso en tu presentación de PowerPoint solo tienes que incluir en tu archivo el siguiente código de VBA (si no sabes cómo hacer esto, descarga directamente la plantilla con el código):


Sub BarraDeProgreso()
On Error Resume Next
Height = 10 ' cambiar este valor para modificar la altura de la barra de progreso
With ActivePresentation
For X = 1 To .Slides.Count
.Slides(X).Shapes("A").Delete
.Slides(X).Shapes("B").Delete
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
0, .PageSetup.SlideHeight - Height, _
X * .PageSetup.SlideWidth / .Slides.Count, Height)
s.Fill.ForeColor.RGB = RGB(0, 153, 204) ' cambiar los valores de RGB para personalizar el color de la barra
s.Line.Visible = msoFalse
s.Name = "A"
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
X * .PageSetup.SlideWidth / .Slides.Count, .PageSetup.SlideHeight - Height, _
.PageSetup.SlideWidth - X * .PageSetup.SlideWidth / .Slides.Count, Height)
s.Fill.ForeColor.RGB = RGB(255, 255, 255)
s.Line.Visible = msoFalse
s.Name = "B"
Next X:
End With
End Sub

Descarga la plantilla

Si no tienes experiencia con VBA, puedes descargar directamente esta plantilla que ya incluye la barra de progreso.

Este archivo tiene extensión pptm «Presentación de PowerPoint habilitada para macros». No cambia nada, simplemente es un archivo que permite la ejecución de macros.

Lo único que debes hacer es ejecutar la macro cuando termines tu presentación, de forma que la barra de progreso se adapte al número final de diapositivas. Para ello:

  • Dirígete al menú superior y haz clic en Vista.
  • A continuación, busca la opción Macros y haz clic en ella.
  • Te aparecerá un menú desplegable en el que encontrarás la macro BarraDeProgreso.
  • Selecciona la macro y haz clic en Ejecutar.

¡Listo! La barra de progreso se ha actualizado y es compatible con el número de diapositivas de tu presentación.

Si tienes alguna duda, contacta conmigo en LinkedIn.

¡Saludos!
Gerardo Marote

Suscríbete

Recibe en tu bandeja de entrada recursos exclusivos para triunfar con tus proyectos.

Escribe tu email si quieres que estemos en contacto. Tus datos estarán protegidos y no se compartirán con nadie. Revisa la política de privacidad.