如何通过VBA为图表整个系列的所有数据点设置填充颜色

代码出现颜色匹配错位、运行报错的核心原因是索引基准不一致：

• Chart.Axes(xlCategory).CategoryNames 返回的变体数组默认下标从0开始
• 图表SeriesCollection.Points集合的索引起始值为1
  直接用数组下标匹配数据点索引，会导致第一个类别匹配不到数据点、最后一个数据点无对应类别，最终颜色错位或触发越界错误。另外代码中声明的cht As Chart变量未被使用，属于冗余代码。

Sub ChartColors()
    Dim sld As Slide
    Dim shp As Shape
    Dim cats As Variant
    Dim j As Long
    
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.Type = msoChart Then
                cats = shp.Chart.Axes(xlCategory).CategoryNames
                For j = LBound(cats) To UBound(cats)
                    ' 索引+1匹配Points集合的1起始规则
                    With shp.Chart.SeriesCollection(1).Points(j + 1).Format.Fill
                        .Visible = True
                        Select Case cats(j)
                            Case "Apple"
                                .ForeColor.RGB = RGB(192, 0, 0)
                            Case "Banana"
                                .ForeColor.RGB = RGB(0, 112, 192)
                            Case Else
                                .ForeColor.RGB = RGB(0, 176, 80)
                        End Select
                    End With
                Next j
            End If
        Next shp
    Next sld
End Sub

• 新增.Visible = True配置，避免因主题默认无填充、之前设置过透明填充导致颜色不生效
• 循环变量类型从Integer改为Long，规避大数量级下的整数溢出问题，是VBA循环编写的通用规范
• 如果图表包含多个数据系列，可新增一层遍历SeriesCollection的循环，替换硬编码的SeriesCollection(1)即可批量适配所有系列

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