Adicione um lembrete de pop-up em intervalos específicos durante uma apresentação no Powerpoint 2013

Question

Temos essa longa apresentação em nossas organizações, onde é essencial acompanhar o tempo e a velocidade das apresentações. Iniciamos várias medidas, como exibir o número do slide e a porcentagem de conclusão em cada slide. Algo como:

5 of 50 (10%)

O detalhe acima está posicionado no marcador de posição do número da página através de uma macro. O que eu sinto é a necessidade de dar um lembrete em intervalos específicos para dar uma ideia de quanto tempo se passou em relação a quantos slides concluímos. O que eu preciso é algo assim, três vezes durante a apresentação. Em 25%, 50% e 75%. O Powerpoint 2013 já mostra o tempo decorrido na exibição do Presenter, mas o mesmo não é visível para os espectadores. Existe alguma solução? O Lembrete surgirá, permanecerá por 3 segundos e depois desaparecerá. Eu vou cuidar do design etc do pop-up, só preciso de uma maneira de fazê-lo aparecer nesses intervalos específicos.

    

Answer 1

Declare Sub Sleep Lib "kernel32" (ByVal lSleepTime As Long)

Sub OnSlideShowPageChange(ByVal oWindow As SlideShowWindow)
' This will fire with every slide change

    With oWindow.View.Slide

        ' Obviously, this isn't what you want to do, but the two values
        ' will give you the info you need to calculate your 25/50/75% points
        ' and do whatever you need at that point
        MsgBox "This is slide: " & .SlideIndex & " of " & .Parent.Slides.Count

        ' You could instead display a user form that gives the message you want
        ' and include a call to the Sleep API above to have it wait X seconds
        ' then Hide/unload itself

    End With
End Sub