Vba代碼刪除所有幻燈片與空白布局的Powerpoint？

Question

尋找一個用空白布局刪除所有幻燈片的示例vba代碼。

我想創建一個使用用戶窗體目錄。用戶選擇他們想要看的產品，並且代碼刪除他們不想看的產品的幻燈片。

的問題是，如果刪除特定於產品的幻燈片的陣列，它改變幻燈片的總數，然後將另一幻燈片編號陣列不再包含特定於其他產品的幻燈片。

我想我會在地方不需要的幻燈片中添加空白幻燈片，然後刪除所有空白幻燈片的結尾。

我接受其他意見和建議。感謝您的時間和協助。

Answer 1

這聽起來好像你與SlideNumber或SlideIndex陣列工作。
由於各種原因，永遠不要使用SlideNumber。 而在這種情況下，刪除幻燈片後，SlideIndex將會更改。

相反，或者與滑動物體的或代替SlideIndex陣列的工作，使用SlideId陣列...創建幻燈片和永遠不會改變時SlideIds分配。

如何找到它SlideID幻燈片，在這種情況下例，258任意：

Dim oSl As Slide 
Set oSl = ActivePresentation.Slides.FindBySlideID(258) 
MsgBox oSl.SlideIndex