Добавьте всплывающее напоминание через определенные промежутки времени во время презентации в Powerpoint 2013

Question

У нас есть эти длинные презентации в наших организациях, где становится необходимым следить за временем и скоростью презентаций. Мы начали различные меры, такие как отображение номера слайда и процент завершения на каждом слайде. Что-то вроде:

5 of 50 (10%)

Вышеуказанная деталь размещается в заполнителе номера страницы с помощью макроса. Что я чувствую, так это необходимость напоминать через определенные промежутки времени, чтобы дать представление о том, сколько времени прошло, сколько слайдов мы завершили. Мне нужно что-то вроде этого, три раза во время презентации. На 25%, 50% и 75%. Powerpoint 2013 уже показывает время, прошедшее в представлении Presenter, однако оно не отображается для зрителей. Есть ли решение? Напоминание всплывет, останется на 3 с, а затем исчезнет. Я позабочусь о дизайне и т.д. Всплывающего окна, просто нужен способ, чтобы он появлялся через определенные промежутки времени.

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