ppt的图片太多,怎么把它全部删掉,只留下文字内容啊?
发布网友
发布时间：2022-04-23 12:37
共1个回答
热心网友
时间：2023-10-02 12:29
一个个的删除
或者
用宏，下面是代码，可以将所有没有可编辑文字的元素都删去
Sub jj()
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
End Sub
