LOS EMPRENDEDORES Y DIRECTIVOS DE ÉXITO SE UNEN PARA CREAR LA ESCUELA DE NEGOCIOS QUE HA CAMBIADO LA FORMA DE HACER UN MÁSTER
Online • Clases 15 min • 499€

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.

Barra de progreso de una presentación

Barra de progreso

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.

Código de VBA para generar la barra de progreso

Aquí te dejo el código de VBA que debes incluir en un módulo del editor de VBA para generar tu barra de progreso.

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 el archivo con la barra de progreso

¡Saludos!
Gerardo Marote