I understand, thanks again for everything. Last question. I have a properly working VBA script that removes all charts/tables in the whole presentation. However, it's missing a loop hence the reason I have to click on the macro several times to have all tables/charts removed. How can I integrate a loop in the following VBA script?
Sub DeleteAllGraphs()
Dim objApp, objSlide, ObjShp, objTable
On Error Resume Next
Set objApp = CreateObject("PowerPoint.Application")
On Error GoTo 0
For Each objSlide In objApp.ActivePresentation.Slides
For Each ObjShp In objSlide.Shapes
If ObjShp.Type = msoPicture Then ObjShp.Delete
For Each objTable In objSlide.Shapes
If objTable.Type = msoTable Then objTable.Delete
Next
Next
Next
End Sub