如何批量删除PPt文档中固定位置的小图片

qq32433525

从PDF文档转来的ppt文档，每页左下角有一个小图片及小文本框，如何批量删除呢？

user_pslvj

有没有快捷的办法呢？

user_czgbu

上传一两页看看吧

cc_8437

• Sub aaa()
  
• For Each sld In ActivePresentation.Slides
  
•     For Each sh In sld.Shapes
  
•     If sh.Top = 小图的top位置 Then
  
•     sh.Delete
  
•     End If
  
•     Next
  
• NextEnd Sub
  

复制代码

user_eustw

请参考