Excel VBA -根据源的字体显示数据标签(“单元格中的值”)

Sub SetDataLabels()
    Dim chartObj As ChartObject
    Dim chartData As ChartData
    Dim seriesColl As SeriesCollection
    Dim series As Series
    Dim point As Point
    
    ' 获取图表对象
    Set chartObj = ActiveSheet.ChartObjects("Chart 1")
    Set chartData = chartObj.Chart.ChartData
    
    ' 获取系列集合
    Set seriesColl = chartData.SeriesCollection
    
    ' 循环处理每个系列
    For Each series In seriesColl
        ' 循环处理每个数据点
        For Each point In series.Points
            ' 设置数据标签的字体样式
            point.DataLabel.Font.Name = point.DataLabel.Parent.Font.Name
            point.DataLabel.Font.Size = point.DataLabel.Parent.Font.Size
            point.DataLabel.Font.Bold = point.DataLabel.Parent.Font.Bold
            ' 设置数据标签的显示文本
            point.DataLabel.Text = point.Parent.Value
        Next point
    Next series
End Sub