来自 https://club.excelhome.net/thread-188757-1-1.html
利用PowerPoint中的宏来做。
首先 文件——选项——自定义功能区 ,把宏加进去。
接下来,找到加进去的宏,点创建,复制进去:
Sub 删除占位符()
Dim sld As Slide, shp As Shape, found As Boolean
Do
found = False
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = 14 And Not shp.TextFrame.HasText Then
found = True
shp.Delete
End If
Next
Next
Loop While found = True
End Sub
之后选择 宏,运行即可。