VBA:将均值和标准差添加到动态生成的图形中

Sub AddMeanAndStdDev()
    Dim chartObj As ChartObject
    Dim chartData As Range
    Dim mean As Double
    Dim stdDev As Double
    
    ' 获取图表对象
    Set chartObj = ActiveSheet.ChartObjects("Chart 1")
    
    ' 获取图表数据范围
    Set chartData = chartObj.Chart.ChartData.Workbook.Worksheets(1).Range("A1:B10")
    
    ' 计算均值和标准差
    mean = WorksheetFunction.Average(chartData.Columns(2))
    stdDev = WorksheetFunction.StDev(chartData.Columns(2))
    
    ' 添加均值和标准差到图表
    With chartObj.Chart
        .SeriesCollection(1).Points(1).HasDataLabel = True
        .SeriesCollection(1).Points(1).DataLabel.Text = "Mean: " & mean
        .SeriesCollection(1).Points(2).HasDataLabel = True
        .SeriesCollection(1).Points(2).DataLabel.Text = "StdDev: " & stdDev
    End With
End Sub