通过VBA实现重复的PPT编辑操作

 最近一同事需要对几十个PPT进行重复的操作：打开每个PPT后，只保留每页中的图片，而把其它内容都删除掉。这个操作如果手工完成简直痛苦死了，如果用VBA的话简单几行代码就可以节省不少时间。

Sub TEST()

Dim oShape As Shape

Dim oSlide As Slide

For Each oSlide In ActivePresentation.Slides

    For Each oShape In oSlide.Shapes

    If oShape.Name <> "GDIImage" Then oShape.Delete

    Next

Next

End Sub

 

我最熟悉的还是Excel VBA的编程，虽然方法是互通的，但是对象模型不同，再加上好久没写VBA了，写这几行代码也还是查了一会儿，不过能帮同事节省不少体力劳动。所以在这里做个 记录，下次再需要写类似的代码就会快些了。

 

我一直认为，VBA是很强大的工具。很多企业平时需要的一些业务数据电子化后的查询、处理等任务，完全可以通过VBA自动实现，甚至可以开发出适合行业使用的应用。