Sub 交替填充表格行背景色()

Dim sh As Integer
Dim i As Integer
Dim j As Integer
Dim x As Integer
x = 1
'分别确定标题行色、奇数行颜色和偶数行颜色
biaoti = RGB(217, 217, 217)
jishu = RGB(0, 0, 0)
oushu = RGB(12, 17, 127)

With ActivePresentation.Slides(1)
For sh = 1 To .Shapes.Count
If .Shapes(sh).HasTable Then

With ActivePresentation.Slides(1).Shapes(sh).Table
'确定表格行列数
iCol = .Columns.Count
iRow = .Rows.Count

'令第一个单元格的填充色为标题色
With .Cell(1, 1)
.Shape.Fill.ForeColor.RGB = biaoti
End With

'填充标题行颜色，判断下一行第一个单元格的填充颜色是否与标题填充色一致，如一致换到下一行
While .Cell(x, 1).Shape.Fill.ForeColor.RGB = biaoti
For m = 1 To iCol
.Cell(x, m).Shape.Fill.ForeColor.RGB = biaoti
Next
x = x + 1
Wend
'对标题行之外的表格范围，按行交替填充单元格颜色
For i = x To iCol
If (i - x + 1) Mod 2 = 1 Then
tianchong = jishu
Else
tianchong = oushu
End If
'开始填充当前行单元格
For j = 1 To iRow
Set oCell = .Cell(i, j)
With oCell
.Shape.Fill.ForeColor.RGB = tianchong
End With
Next j
'当前行填充完毕
Next i
End With

End If
Next
End With
End Sub