Plantillas de Powerpoint

Ya hemos comentado en consejos para tus presentaciones powerpoint que estas no deben ser muy extensas, una presentación powerpoint debe ser el guión (resumen) de lo que el presentador está orando.

Aqui tenéis un truco para poder agregar una barra de progreso que nos indicará a que altura de la presentación nos encontramos con lo que podemos transmitir al oyente la longitud de la misma.

Si no resumís vuestra presentación y haceis algo extensos entender que haya algún oyente que vea el truco y se levante antes de tiempo

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 Y = 1 To .Slides.Count
              .Slides(Y).Shapes("PB").Delete
              Set s = .Slides(Y).Shapes.AddShape(msoShapeRectangle, _
              0, .PageSetup.SlideHeight - 12, _
              Y * .PageSetup.SlideWidth / .Slides.Count, 12)
              s.Fill.ForeColor.RGB = RGB(127, 0, 0)
              s.Name = "PB"
              Next X:
        End With
End Sub

• Seguidamente ve a Archivo / Cerrar y volver a Microsoft PowerPoint
• En la página normal de Power Point ve a: Herramientas / Macro / Macros y selecciona AddProcessBar luego haz clic en Ejecutar.