excel 如何给气泡图添加数据标签

Question

您好，我想为我的气泡图添加自定义数据标签。我的代码在下面。目前数据标签指的是 XValues。我希望我的数据标签填充气泡大小。你介意帮我定制下面的代码吗？

我尝试添加 .DataLabel.Text = "txt" 但我收到了以下信息错误：运行-时间错误“438”：对象不支持此属性或方法

Public Sub CreateMultiSeriesBubbleChart()
If (Selection.Columns.Count <> 4 Or Selection.Rows.Count < 3) Then
    MsgBox "Selection must have 4 columns and at least 2 rows"
    Exit Sub
End If

Dim red, green, blue As Integer


Dim bubbleChart As ChartObject
Set bubbleChart = ActiveSheet.ChartObjects.Add(Left:=Selection.Left, Width:=600, Top:=Selection.Top, Height:=400)
bubbleChart.Chart.ChartType = xlBubble
Dim r As Integer

For r = 2 To Selection.Rows.Count
    With bubbleChart.Chart.SeriesCollection.NewSeries
        .Name = "=" & Selection.Cells(r, 1).Address(External:=True)
        .XValues = Selection.Cells(r, 2).Address(External:=True)
        .Values = Selection.Cells(r, 3).Address(External:=True)
        .BubbleSizes = Selection.Cells(r, 4).Address(External:=True)
        .Format.Fill.Solid
        .Format.Fill.ForeColor.RGB = RGB(61, 161, 161)
     '   .DataLabel.Text = "txt"
    End With

Next

bubbleChart.Chart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
bubbleChart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "=" & Selection.Cells(1, 2).Address(External:=True)

bubbleChart.Chart.SetElement (msoElementPrimaryValueAxisTitleRotated)
bubbleChart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Text = "=" & Selection.Cells(1, 3).Address(External:=True)

bubbleChart.Chart.SetElement (msoElementPrimaryCategoryGridLinesMajor)
bubbleChart.Chart.Axes(xlCategory).MinimumScale = 0

结束子

我的输入样本：

Label          Hour Day count
01-SUNDAY       14  1   1
01-SUNDAY       19  1   1
02-MONDAY       12  2   1
02-MONDAY       13  2   1
02-MONDAY       14  2   2
02-MONDAY       16  2   2

Answer 1

不使用 VBA，右键单击气泡并 select 添加数据标签。然后，右键单击数据标签并单击格式化数据标签。在标签选项下，select 来自单元格的值并指定包含您要使用的标签的单元格。

Answer 2

DataLabel.Text 是 Point 的方法，而不是 NewSeries

此代码：

For r = 2 To Selection.Rows.Count
    With bubbleChart.Chart.SeriesCollection.NewSeries
        [...]
        .DataLabel.Text = "txt"
    End With 
Next

...尝试标记系列，但失败了。

将此代码识别为来自 "multi-series Bubble Charts" 的另一个著名示例，这是一个合乎逻辑的假设，即我们只需要处理每个系列的 1 个数据点，这使得以下代码成为解决方案：

For r = 2 To Selection.Rows.Count
    With bubbleChart.Chart.SeriesCollection.NewSeries
        [...]
        .Points(1).HasDataLabel = True
        .Points(1).DataLabel.Text = "txt"
    End With 
Next

excel 如何给气泡图添加数据标签

how to add data label to bubble chart in excel

excel

vba

bubble-chart