奈何把PowerPoint幻灯片中所有图片都删除了

1.奈何把ppt中所有图片都删除了

新建一个宏（点东西-宏-宏，或直接按alt+F8），宏名字输入DeleteAllPictures（可以随便起），点建设按钮，抖客教程网，复制如下代码：Sub DeleteAllPictures() Dim sldTemp As Slide Dim lngTemp As Long Dim lngCount As Long For Each sldTemp In ActivePresentation.Slides For lngCount = sldTemp.Shapes.Count To 1 Step -1 With sldTemp.Shapes(lngCount) If .Type = msoPicture Then .Delete End If End With Next NextEnd Sub运行之~~。