vba绘制箱线图，只显示平均值标签

### 回答1：
以下是VBA代码，它可以绘制箱线图并只显示平均值标签。

Sub DrawBoxPlotWithMeanLabels()

    '设置数据范围

    Dim dataRange As Range

    Set dataRange = Range("A1:B10") '更改为您的数据范围

    '创建图表

    Dim chartObj As ChartObject

    Set chartObj = ActiveSheet.ChartObjects.Add(Left:=100, Width:=400, Top:=100, Height:=300)

    chartObj.Chart.ChartType = xlBoxPlot

    chartObj.Chart.SetSourceData Source:=dataRange

    chartObj.Chart.HasLegend = False

    '隐藏最大值、最小值、上四分位数、下四分位数和异常值的数据标签

    With chartObj.Chart.SeriesCollection(1)

        .DataLabels.ShowRange = False

        .DataLabels.ShowNegative = False

        .DataLabels.ShowPercent = False

        .DataLabels.ShowValue = False

    End With

    '在均值上显示数据标签

    With chartObj.Chart.SeriesCollection(1).Points

        Dim i As Integer

        For i = 1 To .Count

            Dim meanValue As Double

            meanValue = .Item(i).DataLabel.Text

            .Item(i).DataLabel.ShowValue = False

            .Item(i).HasDataLabel = (Not IsEmpty(meanValue))

            If Not IsEmpty(meanValue) Then

                .Item(i).DataLabel.Text = "Mean: " & meanValue

                .Item(i).DataLabel.ShowValue = True

                .Item(i).DataLabel.Position = xlLabelPositionAbove

            End If

        Next i

    End With

    '设置图表标题

    With chartObj.Chart

        .SetElement msoElementChartTitleAboveChart

        .ChartTitle.Text = "Sales"

    End With

End Sub

### 回答2：
使用VBA绘制箱线图，并只显示平均值标签的方法如下：

1. 首先，在Excel中选择适合绘制箱线图的数据，并把数据整理为一列或一行。

2. 打开Visual Basic编辑器，按下Alt + F11快捷键。

3. 在VBA编辑器中，选择插入->模块，创建新的模块。

4. 在新建的模块中编写以下代码：

Sub DrawBoxPlot()
    Dim rngData As Range
    Dim rngChart As Range
    Dim chtBoxPlot As ChartObject
    Dim serSeries As Series
    
    ' 设置数据范围
    Set rngData = Range("A1:A10")
    
    ' 创建图表
    Set rngChart = Worksheets("Sheet1").Range("C1:E10")
    Set chtBoxPlot = Worksheets("Sheet1").ChartObjects.Add(rngChart.Left, rngChart.Top, rngChart.Width, rngChart.Height)
    
    ' 设置数据系列
    Set serSeries = chtBoxPlot.Chart.SeriesCollection.NewSeries
    serSeries.Name = "Data"
    serSeries.Values = rngData
    
    ' 设置箱线图显示选项
    chtBoxPlot.Chart.ChartType = xlBoxPlot
    chtBoxPlot.Chart.HasTitle = True
    chtBoxPlot.Chart.ChartTitle.Text = "Box Plot"
    chtBoxPlot.Chart.Axes(xlValue).Delete
    chtBoxPlot.Chart.HasLegend = False
    
    ' 设置平均值标签
    chtBoxPlot.Chart.SeriesCollection(1).HasDataLabels = True
    chtBoxPlot.Chart.SeriesCollection(1).DataLabels.Position = xlLabelPositionAbove
    chtBoxPlot.Chart.SeriesCollection(1).DataLabels.ShowValue = True
    chtBoxPlot.Chart.SeriesCollection(1).DataLabels.ShowRange = False
End Sub

5. 在代码中，需要根据实际情况修改数据范围（`rngData`）和图表位置（`rngChart`）。可以根据需要对其他图表属性进行调整。

6. 运行代码，即可在指定位置生成箱线图，并只显示平均值的标签。

### 回答3：
在VBA中绘制箱线图并只显示平均值标签，可以按照以下步骤进行操作。

首先，打开Excel，并选择要绘制箱线图的数据范围。

接下来，按下Alt+F11键，打开Visual Basic for Applications编辑器。

在VBA编辑器中，选择插入->模块，打开一个新模块。

在新模块中，编写以下VBA代码：

Sub DrawBoxPlot()
    Dim cht As ChartObject
    Dim rng As Range
    Dim ws As Worksheet
    
    Set ws = ActiveSheet '设置当前活动表单
    Set rng = ws.Range("A1:D10") '设置要绘制箱线图的数据范围
    
    '创建箱线图
    Set cht = ws.ChartObjects.Add(Left:=100, Width:=375, Top:=75, Height:=225)
    With cht.Chart
        .ChartType = xlBoxPlot '设置图表类型为箱线图
        .SetSourceData rng '设置数据源
        .SeriesCollection(1).ShowAverage = True '只显示平均值
    End With
End Sub

其中，`ws.Range("A1:D10")`表示要绘制箱线图的数据范围，你可以根据实际情况调整这个范围。

完成代码编写后，按下F5键运行代码。

运行代码后，将在当前活动表单中创建一个箱线图，并且只显示平均值标签。

以上就是使用VBA绘制箱线图并只显示平均值标签的方法。