如何用VBA为PPT所有表格应用特定格式（边框、尺寸、多色单元格）

先给你修改后的完整代码，直接替换原代码运行即可：

Sub FormatAllTables()
  Dim oSlide As Slide
  Dim oShape As Shape
  Dim oTable As Table
  Dim i As Long, j As Long
  
  For Each oSlide In ActivePresentation.Slides
    For Each oShape In oSlide.Shapes
      If oShape.HasTable Then
        Set oTable = oShape.Table
        
        ' 设置第一列宽度（只需执行一次，无需嵌套在循环内）
        oTable.Columns(1).Width = 1.9 * 72
        
        For i = 1 To oTable.Rows.Count
          For j = 1 To oTable.Columns.Count
            ' 根据列索引设置不同单元格颜色
            Select Case j
              Case 1
                oTable.Cell(i, j).Shape.Fill.ForeColor.RGB = RGB(240, 248, 255) ' 浅蓝色
              Case 2
                oTable.Cell(i, j).Shape.Fill.ForeColor.RGB = RGB(255, 248, 220) ' 浅黄色
              Case 3
                oTable.Cell(i, j).Shape.Fill.ForeColor.RGB = RGB(245, 222, 179) ' 浅橙色
              ' 可继续添加更多列的颜色设置
              Case Else
                oTable.Cell(i, j).Shape.Fill.ForeColor.RGB = RGB(255, 255, 255) ' 默认白色
            End Select
            
            ' 设置所有边框的颜色和粗细
            With oTable.Cell(i, j).Borders
              ' 修复拼写错误：ppBorderLeft 而非 ppBordeLeft
              .Item(ppBorderLeft).ForeColor.RGB = RGB(255, 255, 255)
              .Item(ppBorderLeft).Weight = ppBorderWeightMedium ' 设置左侧边框粗细
              
              .Item(ppBorderRight).ForeColor.RGB = RGB(255, 255, 255)
              .Item(ppBorderRight).Weight = ppBorderWeightThin
              
              .Item(ppBorderTop).ForeColor.RGB = RGB(255, 255, 255)
              .Item(ppBorderTop).Weight = ppBorderWeightThin
              
              .Item(ppBorderBottom).ForeColor.RGB = RGB(255, 255, 255)
              .Item(ppBorderBottom).Weight = ppBorderWeightMedium
            End With
          Next j
        Next i
      End If
    Next oShape
  Next oSlide
End Sub

关键修改点说明： #

• 修复左侧边框无效问题：原代码中把ppBorderLeft拼写成ppBordeLeft（少了一个r），导致左侧边框设置不生效，现已修正。
• 设置边框粗细：通过.Weight属性控制边框粗细，可选值包括ppBorderWeightThin（细）、ppBorderWeightMedium（中）、ppBorderWeightThick（粗），也可直接用数值（如1代表细，2代表中）。
• 不同列设置不同颜色：用Select Case j判断当前列索引（j为列号，从1开始），给每列指定对应RGB颜色值。你可根据需求修改每个Case里的RGB数值，或添加更多Case覆盖更多列。
• 优化列宽设置：将列宽设置代码从嵌套循环中移出，每个表格仅执行一次，避免重复操作浪费资源。

自定义调整建议： #

• 若需给特定行（如表头行）设置不同颜色，可在循环内添加If i = 1 Then ...的判断。
• RGB颜色值可通过取色工具获取，或直接替换为PPT自带的颜色代码。
• 边框样式还可通过.LineStyle属性修改，比如ppLineStyleDash（虚线）来改变线型。

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