别手残了！PPT也可VBA编程，一键顶万键

EXCEL VBA编程已经广为人知，但在PPT中进行VBA编程则比较少人尝试。但实际工作中PPT中也有许多需要自动化批量进行的任务，因此，PPT编程还是有它存在的价值。

今天就正好碰到了一个PPT“烦人”的任务。

我从网上下载了一份精美的PPT，里面竟然有几百页之多的精美页面，真是学习模仿的好素材，以后做PPT不会做也会仿了。但美中不足的是里面有许多页面是转成图片再插入进来的，那参考价值就低一些了。我手头已经有大量的这种PPT了，所有决定狠心将一张幻灯片全是图的删除。

问题来了，怎么样批量删除这些已经转成图片的幻灯片？

来段代码就轻松搞定！

Sub delall()

Dim lCntr As Long

Dim oSld As Slide

For lCntr = ActivePresentation.Slides.Count To 1 Step -1

Set oSld = ActivePresentation.Slides(lCntr)

If oSld.Shapes.Count = 1 Then

oSld.Delete

End If

Next

MsgBox "删除完成！"

End Sub

简单几句话就好了，按F5运行，完美！

好了，顺便附上“九阴真经”图谱，供参考：

PPT 2003对象模型

这篇文章仅为自己技术备忘，如果你看到，不妨点个赞。