PowerPoint VBA更改图表中所选项目的字体颜色

Sub ChangeFontColor()
    Dim selectedShape As Shape
    Dim selectedChart As Chart
    Dim selectedSeries As Series
    Dim selectedPoint As Point
    
    ' 获取所选形状
    Set selectedShape = ActiveWindow.Selection.ShapeRange(1)
    
    ' 检查所选形状是否为图表
    If selectedShape.HasChart Then
        Set selectedChart = selectedShape.Chart
        
        ' 检查是否选择了系列
        If selectedChart.SeriesCollection.Count > 0 Then
            Set selectedSeries = selectedChart.SeriesCollection(1)
            
            ' 检查是否选择了数据点
            If selectedSeries.Points.Count > 0 Then
                Set selectedPoint = selectedSeries.Points(1)
                
                ' 更改字体颜色
                selectedPoint.DataLabel.Font.Color = RGB(255, 0, 0) ' 设置为红色
            End If
        End If
    End If
End Sub