vba删除PPT图片的几种代码

Admin | 2013-9-16 9:42:14 | 被阅次数 | 10642

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　代码一，功能是：可以将所有没有可编辑文字的元素都删去

　　自然，这就删除了所有图片对象了。

　　Set mydocument = ActivePresentation
　　For k = 1 To mydocument.Slides.Count   '读入页数
　　    i = 1
　　   While i <= mydocument.Slides(k).Shapes.Count          '读入每页的元素
   　　     If mydocument.Slides(k).Shapes(i).TextFrame.HasText = msoFalse Then   '判断是否和文字关联
   　　         mydocument.Slides(k).Shapes(i).Delete         '删除
   　　     Else
   　　         i = i + 1
   　　     End If
　　   Wend
　　Next k

　　代码二，功能是：只删除图片而已

　　For Each sld In ActivePresentation.Slides
       　　 For Each s In sld.Shapes
           　　 If s.Type = msoPicture Then s.Delete
       　　 Next
　　Next

该杂文来自： PowerPoint杂文

上一篇：ppt删除很多个空文本框的VBA代码

下一篇：PPT文本框文字被选中文字变成白底白字