使用For Each循环删除幻灯片全部表格时仅删除两个表格中的一个

问题根源在于用For Each遍历Shapes集合时删除元素的特性：当删除一个Shape后，集合内的元素会自动前移填补空缺，导致循环跳过了下一个需要处理的表格。

修正后的代码采用倒序遍历的方式，彻底避免这个问题：

Sub deleteTable()
    Dim p5 As Slide, i As Integer
    Set p5 = ActivePresentation.Slides(5)
    p5.Select
    ' 从最后一个Shape开始倒序遍历，删除元素不影响未遍历项的索引
    For i = p5.Shapes.Count To 1 Step -1
        If p5.Shapes(i).Type = 19 Then ' 19对应表格类型
            p5.Shapes(i).Delete
        End If
    Next i
End Sub

核心修正点：

• 替换For Each为索引倒序循环，从集合的最后一个元素遍历到第一个
• 直接通过索引访问Shapes，确保每个元素都能被检查到，不会因删除操作导致遗漏

内容的提问来源于stack exchange，提问作者qiao