Use the same construction for all shapes. You have enough loops, too many even, since you're looking for tables within the shapes loop.

        For Each ObjShp In objSlide.Shapes
             If ObjShp.Type = msoPicture Then 
                ObjShp.Delete 
            ElseIf ObjShp.Type = msoTable Then 
                ObjShp.Delete
            End If
        Next