求救：如何删除同一文件夹下多个ppt中的logo图片

scj1234

求救：如何删除同一文件夹下多个ppt中的logo图片
（人教新课标）四年级语文下册课件 语文园地七.rar (97.36 KB, 下载次数: 23)

2014-6-3 10:33 上传

点击文件名下载附件

wudixin96

就单这一个是可以的

但如果其它文档的LOGO不是这张图片呢？位置不固定呢？或者说LOGO在母版 里呢？？

banjinjiu

二楼说的很对！
1、因为每个ppt的具体情况，楼主没上传附件，具体情况还不清楚。
2、再说，每个ppt中是否还有其他LOGO，或其他图片。
3、母版中有没有，不清楚。
你只弄一个文件，就能概括全貌，似乎不妥。就这个ppt，我弄个代码，你试试，在slide1中，搞个命令按钮，放在其他slide中也行。
代码：独家代码，别无分号。

1. Private Sub CommandButton1_Click()
   
2. On Error Resume Next
   
3. For i = ActivePresentation.Slides.Count To 1 Step -1
   
4. For j = ActivePresentation.Slides(i).Shapes.Count To 1 Step -1 '
   
5. 'For Each shp In ActivePresentation.Slides(i).Shapes
   
6. cc = ActivePresentation.Slides(i).Shapes(j).Name '
   
7. If Left(cc, 7) = "Picture" Then '
   
8. ActivePresentation.Slides(i).Shapes(j).Delete
   
9. End If
   
10. 'Next
    
11. Next
    
12. Next
    
13. End Sub

复制代码

banjinjiu

wudixin96 发表于 2014-6-3 10:56
就单这一个是可以的

但如果其它文档的LOGO不是这张图片呢？位置不固定呢？或者说LOGO在母版 里呢？？

不可能，你试试用楼主的文件，我的代码就知道。然后一页一页查看，撤销，查看删除前后的变化。

banjinjiu

这要根据具体情况，我这代码是针对的你现在文件情况。如果，你觉得随意插入一个图片，也是picture开头，你可以把实例传上来，多搞几个slide，再分析，不能凭空说。
任何事物都有规律，有联系，我们就是要找到有规律的东西，如果什么都是无规律，不具体，虚无的，那vba还能起什么作用？