基于数据标签文本的颜色数据点- Excel VBA

Sub ColorDataPoints()
    Dim chartObj As ChartObject
    Dim seriesObj As Series
    Dim pointObj As Point
    
    ' 获取图表对象
    Set chartObj = ActiveSheet.ChartObjects("Chart 1")
    
    ' 获取第一个系列对象
    Set seriesObj = chartObj.Chart.SeriesCollection(1)
    
    ' 遍历数据点
    For Each pointObj In seriesObj.Points
        ' 根据数据标签文本设置颜色
        If pointObj.DataLabel.Text = "类别A" Then
            pointObj.Format.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 红色
        ElseIf pointObj.DataLabel.Text = "类别B" Then
            pointObj.Format.Fill.ForeColor.RGB = RGB(0, 255, 0) ' 绿色
        ElseIf pointObj.DataLabel.Text = "类别C" Then
            pointObj.Format.Fill.ForeColor.RGB = RGB(0, 0, 255) ' 蓝色
        End If
    Next pointObj
End Sub