Imported tables on multiple PPT slides

[mcstring]

I import a slide deck of <100 slides weekly for a report. On every single one of these slides is a table that I need to delete. Is there a way to delete them all at the same time?

[Paul_Hossler]

Put this in a standard module and see

If the table is in a Placeholder, it won't delete it -- just deletes inserted tables

Option Explicit

Sub DeleteTables()
Dim oPres As Presentation
Dim oSlide As Slide
Dim oShape As Shape
Set oPres = ActivePresentation
For Each oSlide In oPres.Slides
    For Each oShape In oSlide.Shapes
        If oShape.Type = msoTable Then
            oShape.Delete
        End If
    Next
Next
End Sub

[John Wilson]

As Paul said as written tables in placeholders will not be deleted. You can force this by replacing

If oShape.Type=msoTable Then
WITH
if oShape.HasTable Then

[mcstring]

Paul,
This works perfectly.
Thank you!

Put this in a standard module and see

If the table is in a Placeholder, it won't delete it -- just deletes inserted tables

Option Explicit

Sub DeleteTables()
Dim oPres As Presentation
Dim oSlide As Slide
Dim oShape As Shape
Set oPres = ActivePresentation
For Each oSlide In oPres.Slides
    For Each oShape In oSlide.Shapes
        If oShape.Type = msoTable Then
            oShape.Delete
        End If
    Next
Next
End Sub