如何複製無論是在VBA或CTRL + C

Question

所以我有一個相當複雜的PowerPoint我一直工作在幻燈片時停止的PowerPoint 2013崩潰 - 這是一個複雜的訓練計劃與測試部分組合呈現多種選擇問題其中一些只是文本，其中一些是圖形的，其中一些是動畫圖形，其中一些是合成的語音和音頻等。當用戶錯誤地回答幻燈片時，VBA代碼將幻燈片複製到演示文稿，以便用戶必須再次回答錯過的問題以確保學習正確的答案。

反正我又增加了約200幻燈片，然後我遇到了一個問題。運行某個幻燈片後，複製幻燈片的VBA代碼開始導致「簡單的代碼行」無效的錯誤：oSld.Copy。然後，我嘗試在幻燈片編輯窗口中使用CTRL + C手動複製幻燈片，並得到類似的錯誤，但措辭不同;像這樣：「我們很抱歉，出現了一些可能導致PowerPoint不穩定的問題，請保存您的演示文稿並重新啓動PowerPoint。」

我完全被這種奇怪的行爲所困惑，也許是因爲幻燈片的數量減少了幻燈片，所以我把幻燈片的數量減少到只有15個左右，但是，同樣的幻燈片仍然在oSld上引發了問題。複製並按CTRL + C。

Answer 1

我花了幾個小時試圖來縮小錯誤發生在，它似乎一直掛時間最長的這個幻燈片。但之後，我偶然在另一張幻燈片上看到了同樣的錯誤。通用性是他們在幻燈片上都有不尋常的動畫。具體來說，在兩張幻燈片上，我都有一組形狀，並且該組使用「線條」動畫進行動畫，將一組形狀從一個點移到另一個點。

當我從這些幻燈片刪除的動畫，不再有用於oSld.Copy錯誤也不使用CTRL + C時。

我的解決方法（要在這個時間點已經工作）是我添加的代碼複製源幻燈片演示結束後刪除源幻燈片動畫。幸運的是，複製錯誤似乎只發生在嘗試複製具有複雜動畫的第二張幻燈片時，而不是在複製具有複雜動畫的第一張幻燈片後發生。因此，通過在複製幻燈片後刪除複雜動畫，動畫在演示文稿的末尾正確複製到幻燈片，但顯然從源幻燈片刪除動畫可防止複製下一個複雜動畫幻燈片時出現問題。

我修改後的代碼的PowerPoint鍊金術的約翰·威爾遜刪除動畫如下：

Sub DeleteAnimations() 
    Dim i As Integer 
    Dim t As Integer 
    Dim osld As Slide 

    'delete anims from just the current slide 
    Set osld = ActivePresentation.Slides(ActivePresentation.SlideShowWindow.View.CurrentShowPosition) 

    'Remove normal animations 
    For i = osld.TimeLine.MainSequence.Count To 1 Step -1 
     osld.TimeLine.MainSequence(i).Delete 
    Next i 

    'Remove triggers 
    For i = osld.TimeLine.InteractiveSequences.Count To 1 Step -1 
     For t = osld.TimeLine.InteractiveSequences(i).Count To 1 Step -1 
      osld.TimeLine.InteractiveSequences(i).Item(t).Delete 
     Next t 
    Next i 
End Sub 

我拉我的頭髮試圖擺脫錯誤的，並因爲我花了這麼長的時間算起來我希望在這裏發佈這些信息可以幫助其他人。