Powerpoint шторка «закрытие» эффект перехода обходной путь

Question

В MS Powerpoint 2016 (возможно, 2013) или выше есть эффект перехода, который открывает слайд с помощью шторки.Единственный способ закрыть шторку - это нажать клавишу «P» (или «BackSpace», клавиши PgUp).Я знаю, что есть голоса пользователей, которые просят этот эффект закрывающей шторки (https://powerpoint.uservoice.com/forums/288949-powerpoint-for-windows-desktop-application/suggestions/15570894-please-make-a-curtain-closing-transition-in-powerp)

Так что я подумал, как этого добиться.Я понял, что если я отправлю эти клавиши «Назад» (P, BackSpace или PgUp) на следующем слайде слайда перехода, можно было бы заставить его закрыть занавес.

Здесь я предполагаю переходэффект на слайде № 2.И я добавил кнопку закрытия (форма) на последнем слайде.Если докладчик нажимает кнопку «Закрыть» на последнем слайде, он выглядит следующим образом: 1. Перейдите к слайду № 2, где применяется эффект занавеса. 2. Отправьте кнопку (ny), чтобы остановить предыдущий эффект перехода.3. подождите секунду 4. пошлите реальный ключ BackSpace (или «P», ключ «PgUp») 5. Наконец, наступает эффект закрывающей шторки.

Ниже приведен код макроса, который я написал.

Sub CloseCurtain()

    SlideShowWindows(1).View.GotoSlide 2

    'Send any key
    SendKeys "{PGUP}"   'make the transition effect(opening curtain) finish

    'wait for 1 second
    Wait = Timer
    Do While Timer < Wait + 1
        DoEvents
    Loop

    SendKeys "{PGUP}"   'move to the previous slide and close the curtain
    'SendKeys "{BS}" "{P}" "{UP}" is the same

End Sub

Есть ли у вас какие-либо предложения или лучшие идеи по этому поводу?