Vba代码删除所有带有空白布局PowerPoint的幻灯片？答案

【问题标题】：Vba code to delete all slides with a blank layout powerpoint?Vba代码删除所有带有空白布局PowerPoint的幻灯片？
【发布时间】：2017-07-26 11:27:33
【问题描述】：

寻找删除所有具有空白布局的幻灯片的示例 vba 代码。

我正在尝试使用用户窗体创建目录。用户选择他们想看的产品，代码删除他们不想看的产品的幻灯片。

问题是，如果我删除特定于产品的幻灯片数组，它会更改幻灯片的总数，然后其他幻灯片编号数组不再包含特定于其他产品的幻灯片。

我在想我会添加空白幻灯片来代替不需要的幻灯片，然后在最后删除所有空白幻灯片。

我愿意接受其他想法和建议。感谢您的时间和帮助。

【问题讨论】：

【解决方案1】：

听起来好像您正在使用 SlideNumber 或 SlideIndex 的数组。
永远不要因为各种原因而打扰 SlideNumber。在这种情况下，SlideIndex 会在您删除幻灯片后发生变化。

相反，可以使用 Slide 对象数组，也可以使用 SlideId 数组代替 SlideIndex ... SlideId 在创建幻灯片时分配，并且永远不会更改。

如何从其 SlideID 中查找幻灯片的示例，在本例中为 258 任意：

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

【讨论】：