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