如何修改VBA代码批量设置PowerPoint所有幻灯片表格填充色？

以下是修改后的VBA代码，可批量处理演示文稿中所有幻灯片内的所有表格，自动设置单元格填充色：

Public Sub TblCellColorFill_AllSlides()
    Dim sld As Slide
    Dim shp As Shape
    Dim oTbl As Table
    Dim X As Integer
    Dim Y As Integer
    ' 自定义填充色，可根据需求修改RGB值
    Dim targetColor As Long
    targetColor = RGB(100, 150, 200)
    
    ' 遍历演示文稿中所有幻灯片
    For Each sld In ActivePresentation.Slides
        ' 遍历当前幻灯片内的所有形状
        For Each shp In sld.Shapes
            ' 判断当前形状是否为表格
            If shp.HasTable Then
                Set oTbl = shp.Table
                ' 遍历表格的所有列
                For X = 1 To oTbl.Columns.Count
                    ' 遍历当前列的所有行
                    For Y = 1 To oTbl.Rows.Count
                        ' 设置单元格填充色
                        oTbl.Cell(Y, X).Shape.Fill.ForeColor.RGB = targetColor
                    Next Y
                Next X
            End If
        Next shp
    Next sld
End Sub

修改说明 #

• 新增幻灯片遍历逻辑：通过For Each sld In ActivePresentation.Slides循环处理每一页幻灯片
• 新增形状筛选：用shp.HasTable判断形状是否为表格，避免处理非表格元素
• 移除选中判断：删除原代码中.Selected <> False的条件，实现批量修改所有单元格
• 提取颜色变量：将RGB值定义为targetColor，方便后续快速修改目标颜色

使用方法：打开PPT的VBA编辑器（按Alt+F11），插入模块后粘贴上述代码，运行即可完成批量修改。

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