用vba绘制箱型图并标注平均值

可以使用以下代码来绘制箱型图并标注平均值：

Sub DrawBoxPlot()
Dim rngData As Range
Dim chtBoxPlot As Chart

' Set the range of data to be plotted
Set rngData = Range("A1:A10")

' Create a new chart
Set chtBoxPlot = Charts.Add

' Set the chart type to box and whisker
chtBoxPlot.ChartType = xlBoxWhisker

' Set the data source for the chart
chtBoxPlot.SetSourceData Source:=rngData

' Add a data label for the mean value
With chtBoxPlot.SeriesCollection(1)
.HasDataLabels = True
.DataLabels.Position = xlLabelPositionAbove
.DataLabels.Format.TextFrame2.TextRange.InsertAfter "Mean: " & Application.WorksheetFunction.Average(rngData)
End With

' Set the chart title
chtBoxPlot.HasTitle = True
chtBoxPlot.ChartTitle.Text = "Box Plot with Mean Value"

End Sub

请注意，此代码仅适用于绘制单列数据的箱型图。如果您需要绘制多列数据的箱型图，则需要进行适当的修改。