怎样把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运行之~~。