VBA代碼刪除帶有空白布局PowerPoint的所有幻燈片？

Question

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

我正在嘗試使用UserForm創建目錄。 用戶選擇他們想要看的產品，並且代碼刪除他們不想看的產品的幻燈片。

問題是，如果我刪除特定於產品的幻燈片數組，則會更改幻燈片的總數，然后其他幻燈片編號數組不再包含特定於其他產品的幻燈片。

我當時想添加空白幻燈片來代替不需要的幻燈片，然后最后刪除所有空白幻燈片。

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

Answer 1

聽起來好像您正在使用SlideNumber或SlideIndex數組。
切勿因各種原因而煩惱SlideNumber。 在這種情況下，刪除幻燈片后，SlideIndex將會更改。

而是使用Slide對象的數組或代替SlideIndex，而使用SlideId的數組... SlideId在創建幻燈片時分配，並且永不更改。

如何從其SlideID查找幻燈片的示例（在本例中為258）：

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