如何使用VBA清除PowerPoint中所有信息的幻灯片母版？

Question

我想打开当前文件夹中的每个PowerPoint（* .pptx），并清除所有图像和文本框的幻灯片母版，然后保存。 （它说我的帖子主要是代码，所以我需要添加更多的细节，所以这里有一句乔治华盛顿的报价，“如果你尊重你自己的声誉，那么与高质量的男人联系在一起;因为最好是独自一人比坏公司“）

新代码

Sub DeleteSlideMasterShapes() 
    Dim i As Long 
    Dim shp As Shape 

    With ActivePresentation 
     For i = .Designs.Count To 1 Step -1 
      For Each shp In .Designs(i).SlideMaster.Shapes 
       shp.Delete 
      Next 
     Next i 
    End With 
End Sub 

Sub loopFiles() 

Dim fso As New FileSystemObject 
Dim fil As File 
Dim fold As Folder 
Dim yourfolder As String 

Set fold = fso.GetFolder(Application.ActivePresentation.Path) 

For Each fil In fold.Files 

    If InStr(1, fil.Name, ".pptx") > 0 Then 
     Application.Presentations.Open fil.Path 

     Call DeleteSlideMasterShapes 

     ActivePresentation.Save 
     ActivePresentation.Close 

    End If 

Next fil 

End Sub 

Answer 1

继我的意见，如果你想删除的幻灯片母版然后用这个

Sub DeleteSlideMaster() 
    Dim i As Long 

    With ActivePresentation 
     On Error Resume Next 
     For i = .Designs.Count To 1 Step -1 
      .Designs(i).SlideMaster.Delete 
     Next i 
     On Error GoTo 0 
    End With 
End Sub 

要删除形状一个slidemaster的，使用此

Sub DeleteSlideMasterShapes() 
    Dim i As Long 
    Dim shp As Shape 

    With ActivePresentation 
     For i = .Designs.Count To 1 Step -1 
      For Each shp In .Designs(i).SlideMaster.Shapes 
       shp.Delete 
      Next 
     Next i 
    End With 
End Sub 

如果我没有理解你的查询，然后请随时问

Answer 2

另一种方法，如果你想从所有幻灯片母版和主的布局删除所有形状：

Sub DeleteSlideMasterShapes() 
' Including shapes on layouts 

    Dim oDes As Design 
    Dim oLay As CustomLayout 

    With ActivePresentation 

     ' For each slide master: 
     For Each oDes In .Designs 

      ' Delete the shapes on the master 
      oDes.SlideMaster.Shapes.Range.Delete 

      ' Then delete the shapes from each layout under 
      ' the slide master: 
      For Each oLay In oDes.SlideMaster.CustomLayouts 
       oLay.Shapes.Range.Delete 
      Next 

     Next 

    End With 

End Sub