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运行，完美！
好了，顺便附上“九阴真经”图谱，供参考：
这篇文章仅为自己技术备忘，如果你看到，不妨点个赞。