Barra de progreso en PowerPoint


Para crear una barra de progreso en la parte inferior  de su presentación de PowerPoint  2018  en realidad  es un proceso muy sencillo ,  pues solo tiene que incluir en macros un sencillo  código en Visual Basic que vamos a  ver a continuación.

Para ello , desde Power Point 2018 tenenos que ir a la pestaña Vista  y pulsar en Macros.

Ahí escribiremos “Barra de Progreso ” en la caja “nombre de la macro  y pulsaremos sobre  el  botón “Crear

Ahora justo en la caja del código meteremos el siguiente  fragmento de código en VB para aplicaciones :

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

Hecho esto ,guardaremos nuestro trabajo  ,pulsando en el  icono del “disquette” o simplemente pulsando  en Guardar.

 

Ahora, tan solo hay que ejecutar la macro que acabamos de crear  y la macro insertará automáticamente  en cada slide  una barra de progreso   de forma que variara  en función del numero de hoja de presentación de menos mas  llegando a su culminación al final de la ppt.

Como aspecto importante  no  debemos olvidar que cada vez que creemos una nueva hoja ,o alteremos el orden de las  hojas, debemos ejecutar la macro que acabamos de crear.

Para  terminar   si queremos almacenar la macro en el Powerpoint al guardar los cambios en la ppt , debemos asegurarnos de que el formato que elijamos (normalmente pptx)  lo permite ,porque si no lo hacemos  al   abrirla nuevamente  aunque la barra de progreso se mantendrá en las slides, la macro no estará y si cambiamos algo no podremos actualizar esta.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios .