求助：如何通过VBA修改Excel中Sunburst图表的数据标签字体颜色？

常规的系列数据标签修改代码（比如ActiveChart.FullSeriesCollection(1).DataLabels.Font.Color = RGB(255, 0, 0)）对Sunburst图表无效，因为Sunburst属于层次结构图表，它的数据标签是绑定到每个单独的数据点，而非整个系列统一控制。

要修改Sunburst的数据标签字体颜色，需要遍历每个数据点并逐个设置：

Sub ChangeSunburstDataLabelColor()
    Dim cht As Chart
    Dim ser As Series
    Dim dp As Point
    
    Set cht = ActiveChart
    Set ser = cht.FullSeriesCollection(1)
    
    ' 遍历所有数据点，设置数据标签字体为红色
    For Each dp In ser.Points
        dp.DataLabel.Font.Color = RGB(255, 0, 0)
    Next dp
End Sub

如果需要按层级区分颜色，可以利用数据点的Level属性（层级从外层到内层递增）：

Sub ChangeSunburstLabelColorByLevel()
    Dim cht As Chart
    Dim ser As Series
    Dim dp As Point
    
    Set cht = ActiveChart
    Set ser = cht.FullSeriesCollection(1)
    
    For Each dp In ser.Points
        Select Case dp.Level
            Case 1 ' 最外层层级
                dp.DataLabel.Font.Color = RGB(0, 0, 255) ' 蓝色
            Case 2 ' 中间层级
                dp.DataLabel.Font.Color = RGB(0, 255, 0) ' 绿色
            Case 3 ' 最内层层级
                dp.DataLabel.Font.Color = RGB(255, 0, 0) ' 红色
        End Select
    Next dp
End Sub

执行前确保目标Sunburst图表处于激活状态，代码会遍历所有数据点并修改对应的数据标签字体颜色。

内容的提问来源于stack exchange，提问作者Grégory Fonrouge