如何利用VBA或别的方法批量删除PPT的固定图片?

mimiha

从网上下载几个PPT演示文档,但在每页幻灯片的最下面都一张网站的广告图片,开始以为在母版中删除就行了,但发现在不是在母版中的,每页幻灯片都有,手动一张一张删除太麻烦了,跪求批量删除的方法.

mimiha

现在上传了个PPT实例,哪位老师可以帮帮我啊?把每页幻灯片的底端的图片批量删除.

laose

写个小宏：
Sub delPic()
    For Each sld In ActivePresentation.Slides
        For Each s In sld.Shapes
            If s.Type = msoPicture Then s.Delete
        Next
    Next
End Sub

chuhaiou

确实很方便哟

tangqingfu

谢谢laose兄的分享，收藏学习！

jikky

如何同时存在多个图片，这个代码就有问题了。
能否给出一个修正的代码。 If s.Type = msoPicture Then s.Delete
能否指定具体删除那个图片？

jikky

laose 发表于 2010-10-27 20:45
写个小宏：
Sub delPic()
    For Each sld In ActivePresentation.Slides

如何同时存在多个图片，这个代码就有问题了。
能否给出一个修正的代码。 If s.Type = msoPicture Then s.Delete
能否指定具体删除那个图片？

weiyingde

jikky 发表于 2012-11-6 18:14
如何同时存在多个图片，这个代码就有问题了。
能否给出一个修正的代码。 If s.Type = msoPicture Then s ...

可以这样实现：
1、比如，删除第一张幻灯片上的“图片1”的图片可以这样写
activepresentation.slides(1).shapes("图片1").delete
2、如果共有50张幻灯片，各张幻灯片依次有“图片1”，"图片2"……“图片50”的图形删除。不妨这样写：
for i = 1 to 50
set shp = activepresentation.slides(i).shapes("图形" & i)
shp.delete
next

jikky

谢谢指教。