VSTO加載項自動導出自定義PowerPoint幻燈片

Question

我公司的一個組在一個非常大的PowerPoint幻燈片工作區上工作。並非所有的幻燈片都適合每個人。該套牌的目的是提供一個單一的材料來源，人們可以根據需要的演示類型選擇幻燈片。幻燈片中有許多預定義的自定義幻燈片，可以使此過程更加輕鬆。

雖然此解決方案在許多情況下運行良好，但我們需要一種簡單的方法將自定義顯示快速導出到新的演示文稿。我打算開發一個VSTO加載項，允許用戶選擇一個或多個自定義幻燈片，然後將幻燈片導出到他們的桌面，我正在尋找一些代碼來幫助我走上正軌。

有誰知道如何將現有的自定義顯示導出到新的演示文稿？更好的是，有沒有辦法讓用戶選擇和導出一個或多個現有的節目？

Answer 1

大的問題，我想這個很長一段時間做自己，所以走上弄清楚你的時間（和我！）。

基本上，你會通過所有NamedSlideShows想要一個）循環，b）通過SlideID找到他們的幻燈片，c）加入新的演示文稿，然後d）複製在NamedSlideShow幻燈片與原設計。您可以根據您在命令中發送的方式爲一個或全部自定義節目執行此操作。

下面是一個例子：

Sub FindShows() 
    Dim p As PowerPoint.Presentation 
    Set p = PowerPoint.ActivePresenation 
    Dim cShow As PowerPoint.NamedSlideShow 
    For Each cShow In p.SlideShowSettings.NamedSlideShows 
     SaveCustomShow (cShow.Name, p) 
     'If using PowerPoint 2010 use the following line instead: 
     'SaveCustomShow cShow.Name, p 
    Next 
End Sub 

的FindShows子剛剛找到所有的自定義顯示在ActivePresentation，並將它們發送到將創建一個基於指定的自定義放映的名稱每個新presenation的例程。您可以根據需要進行自定義。

下面的例程是它的核心。有幾件事情需要注意：

• 要通過 源滑動的滑蓋設計派，你必須設置複製幻燈片使用 設計明確地 。
• A NamedSlideShow只會給你 其中的幻燈片SlideID。 您可以使用FindBySlideID然後 確定幻燈片中原始的 演示文稿 - 它返回幻燈片 對象。然後你只需複製它，並 粘貼它的原始設計 。

Sub SaveCustomShow(showName As String, p As Presentation) 
     Dim cShows As PowerPoint.NamedSlideShows 
     Set cShows = p.SlideShowSettings.NamedSlideShows 
     Dim cSlideIDs As Variant 
     cSlideIDs = cShows(showName).SlideIDs 
     Dim destinationPath As String 
     destinationPath = "C:\Temp\" 
     Dim newP As PowerPoint.Presentation 
     Set newP = PowerPoint.Presentations.Add(WithWindow:=False) 
     With newP 
      .SaveAs destinationPath & cShows(showName).Name 
      Dim s As PowerPoint.Slide 
      Dim e As Integer 
      For e = 1 To UBound(cSlideIDs) 
       Set s = p.Slides.FindBySlideID(SlideID:=cSlideIDs(e)) 
       s.Copy 
       .Slides.Paste.Design = s.Design 
      Next 
      .Save 
      .Close 
     End With 
     Set newP = Nothing 
    End Sub 

這裏沒有任何錯誤代碼檢查，這樣就需要被制定出來，但它就像一個魅力！

Answer 2

這是一種享受！ 小心先創建一個文件的副本！

http://www.pptfaq.com/FAQ00893.htm