PowerPoint表格单元格双色渐变设置：45度渐变角度调试问题

原代码的问题出在渐变样式选择与角度设置的搭配上，以下是调整后的代码，可实现45度角的硬分割双色渐变效果：

Sub FillSelectedTableCellsWith45Gradient()
    Dim oSh As Shape
    Dim oTbl As Table
    Dim lRow As Long
    Dim lCol As Long
    Dim Col1 As Long
    Dim Col2 As Long
    
    ' 定义渐变颜色
    Col1 = RGB(255, 0, 0) ' 红色
    Col2 = RGB(255, 192, 0) ' 橙色
    
    ' 获取选中的表格形状
    Set oSh = ActiveWindow.Selection.ShapeRange(1)
    Set oTbl = oSh.Table
    
    ' 遍历表格单元格，为选中单元格设置渐变
    With oTbl
        For lRow = 1 To .Rows.Count
            For lCol = 1 To .Columns.Count
                If .cell(lRow, lCol).Selected Then
                    With .cell(lRow, lCol).Shape.Fill
                        ' 使用对角线渐变样式，确保角度设置生效
                        .TwoColorGradient msoGradientDiagonalDown, 1
                        ' 设置渐变停止点，Position设为0.5实现硬分割线
                        .GradientStops(1).Color = Col1
                        .GradientStops(1).Position = 0.5
                        .GradientStops(2).Color = Col2
                        .GradientStops(2).Position = 0.5
                        ' 设置45度渐变角度（从左上到右下），若要反向用135度
                        .GradientAngle = 45
                    End With
                End If
            Next
        Next
    End With
End Sub

关键修改说明： #

• 替换渐变样式：将原代码的msoGradientHorizontal改为msoGradientDiagonalDown，只有选择对角线类渐变样式，GradientAngle的设置才能正确作用于对角线方向，而非水平方向。
• 精准设置渐变角度：GradientAngle = 45对应左上到右下的45度分割线；如果需要右上到左下的分割效果，可将角度改为135。
• 保留硬分割设置：两个渐变停止点的Position都设为0.5，确保两种颜色之间是清晰的分割线，而非平滑过渡。

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