如何在excel中将数据标签添加到气泡图中
您好，我想添加自定义数据标签到我的气泡图。 我的代码在下面。 目前数据标签参考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 结束小组
我的input示例：
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
DataLabel.Text是一个Point的方法，而不是NewSeries
此代码：
For r = 2 To Selection.Rows.Count With bubbleChart.Chart.SeriesCollection.NewSeries [...] .DataLabel.Text = "txt" End With Next
…尝试标记系列，并失败。
认识到这个代码是来自另一个着名的“多系列Bubble Charts”的例子，这是一个合乎逻辑的假设，我们只需要处理每个系列的1个数据点，这就使得下面的代码成为解决scheme：
For r = 2 To Selection.Rows.Count With bubbleChart.Chart.SeriesCollection.NewSeries [...] .Points(1).HasDataLabel = True .Points(1).DataLabel.Text = "txt" End With Next
不使用VBA，用鼠标右键单击气泡，然后select添加数据标签。 然后，右键单击数据标签，然后单击格式数据标签。 在“标签选项”下，select“来自单元格的值”并指定包含要使用的标签的单元格。