VBA For Loop for Chart格式化

Sub FormatChart()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim i As Integer
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 获取第一个图表对象
    Set cht = ws.ChartObjects(1)
    
    ' 循环遍历图表的所有系列
    For i = 1 To cht.Chart.SeriesCollection.Count
        With cht.Chart.SeriesCollection(i)
            ' 设置系列的颜色为红色
            .Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
            
            ' 设置系列的线条粗细为2磅
            .Format.Line.Weight = 2
            
            ' 设置系列的数据标签可见
            .HasDataLabels = True
        End With
    Next i
End Sub