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

您对此有何建议或更好的主意？

Powerpoint幕“关闭”过渡效果解决方法

0 个答案: