如何在退出動畫結束後自動推進PowerPoint幻燈片？

Question

設置「Start：With Previous」的PowerPoint入口動畫從一張新幻燈片前進時開始。但是，如果以相同方式設置退出動畫，則不會以幻燈片結束順序開始。相反，「開始：點擊」觸發需要使用和你退出動畫結束以後，你仍然需要一個額外的點擊只前進到下一個幻燈片。

解決方法 s到這是顯而易見的：創建一個重複的幻燈片，從原來的幻燈片讓你結束動畫上重複幻燈片是你的出發動畫，讓他們遵循任何你想要的或創建與過渡幻燈片僅結束動畫，並設置「更改高級幻燈片 - >自動後 - > [您的動畫完成所需的時間]」。

這些變通辦法使它成爲你的聽衆工作，在視覺上。但是，它會影響您可能需要相應調整和/或重複內容更改的幻燈片編號。如果你是唯一一個創建和使用你的演示文稿，這可能會很好。但是，如果您與其他三個人以協作模式創建演示文稿，甚至不知道最終誰將成爲主持人，那麼您可能會搞砸了。

讓我們具體：我的大部分幻燈片在應用到右，上下或左右未來的內容塊入口動畫0.2S飛。前進到下一張幻燈片我希望他們能夠在另一個0.2秒的出口動畫中飛出，然後是新的幻燈片0.2s飛出新塊的入口動畫。通常，在前進到下一張幻燈片時，應觸發塊的交換。
如前所述，如果在幻燈片之間沒有額外的點擊，我無法做到這一點。

我寫了一個VBA腳本，它應該與一個退出動畫一起開始，並且會在退出動畫結束0.3秒後自動推進幻燈片。這樣我就可以擺脫現在需要的額外點擊。

Sub nextslide() 
iTime = 0.3 
Start = Timer 
While Timer < Start + iTime 
DoEvents 
Wend 
With SlideShowWindows(1).View 
    .GotoSlide (ActivePresentation.SlideShowWindow.View.Slide.SlideIndex + 1) 
End With 
End Sub 

它綁定在一個盒子，按鈕或其他物體上時效果很好。但我不能讓它在一個單一的點擊（上任意位置幻燈片）運行，以便能夠與出口動畫的onclick觸發一起啓動。在整個幻燈片上創建一個大的透明矩形形狀，並在其上綁定宏也無濟於事。通過點擊它你只能讓宏運行，不會觸發退出動畫。
無論如何，我不想將宏綁定到任何其他解決方法對象，但幻燈片本身。

任何人都知道如何觸發幻燈片onclick事件一個PowerPoint VBA腳本？
任何人都知道一個祕密設置，這將使出口動畫作品如預期，即退出動畫幻燈片權之前，同時過渡到下一個？
任何人都知道如何擊敗這條龍？

謝謝！

Answer 1

可以使用類模塊

在類模塊

在VBA資源管理器中左側的組合（對象），你可以看到PPT和右的事件攔截PowerPoint事件

Private WithEvents ppt As PowerPoint.Application 

在常見模塊使用

set x= new class1 

現在您可以使用所有的事件pres entation。

的[]

Answer 2

你也可以設置轉換（標籤） - >高級幻燈片00:00:00秒後。您需要將SLIDESHOW（選項卡）設置爲使用（排練）計時。這將在最後一次動畫操作後自動推進幻燈片。你當然可以等待幾秒鐘，但聽起來你只是想推進幻燈片。