使用空白布局powerpoint删除所有幻灯片的Vba代码?

时间:2017-07-25 21:56:20

标签: vba powerpoint

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

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

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

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

我对其他想法和建议持开放态度。感谢您的时间和帮助。

1 个答案:

答案 0 :(得分:0)

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

相反,要么使用Slide对象数组,要么使用SlideIndex,请使用SlideId数组...幻灯片创建时会分配SlideId并且永远不会更改。

如何从SlideID中找到幻灯片的示例,在本例中为258,任意:

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