如何以编程方式定义PowerPoint图表的` `data labels`状态？

Sub SetDataLabels()
    Dim slide As Slide
    Dim chart As Chart
    Dim series As Series
    Dim point As Point
    Dim dataLabels As DataLabels
    
    ' 获取当前活动的幻灯片
    Set slide = ActivePresentation.Slides(1)
    
    ' 获取第一个图表
    Set chart = slide.Shapes(1).Chart
    
    ' 获取第一个系列
    Set series = chart.SeriesCollection(1)
    
    ' 获取第一个数据点
    Set point = series.Points(1)
    
    ' 获取数据标签对象
    Set dataLabels = point.DataLabel
    
    ' 设置数据标签的属性
    dataLabels.Position = xlLabelPositionAbove ' 设置位置为图表上方
    dataLabels.Font.Bold = True ' 设置字体为粗体
    dataLabels.Font.Color = RGB(255, 0, 0) ' 设置字体颜色为红色
    dataLabels.NumberFormat = "0.00" ' 设置数据格式为保留两位小数
    
    ' 显示数据标签
    dataLabels.Visible = True
End Sub