气泡标签VB资料.docVIP

二、在气泡图中为数据点添加文本数据标签 有时我们需要在气泡图中给每个数据点添加文本数据标签，由于气泡图中的三组数据都为数值，在气泡图中给数据点添加数据标签时，数据标签也显示为数值，有些不太直观。例如在上图中，我们就希望给每个数据点添加A2:A7区域所包含的“产品代号”文本标签： ????? Excel没有提供直接的方法来给气泡图添加文本数据标签。当气泡图中仅包含一个系列时，可以用下面的VBA代码来给所选择的数据系列添加指定区域中的文本数据标签。方法是： 1.按Alt+F11，打开VBA编辑器，在代码窗口中粘贴下列代码： Sub AddLabel()为气泡图数据系列添加文本数据标签Dim rRng As RangeDim i As IntegerOn Error GoTo line1Set rRng = Application.InputBox(选择包含数据标签的列区域, Title:=选择区域, Type:=8) Selection.ApplyDataLabelsFor i = 1 To rRng.Rows.CountSelection.Points(i).DataLabel.Text = rRng.Item(i).TextNext iline1:End Sub 2.返回Excel工作表界面，单击气泡图中某个数据系列点选择整个数据系列，如图： 按Alt+F8，打开“宏”对话框，选择“AddLabel”宏并执行。宏运行后会弹出一个“选择区域”对话框，用鼠标选择数据标签所在的列区域，如本例中的A2:A7区域，选择列区域时确保所选区域包含的单元格数量与图表数据系列点数量相同，单击“确定”即可。 三、将文本添加到气泡图的图例中 如上图所示，当气泡图只包含一个数据系列，并选择“依数据点着色”时，图例中的数据点名称都为数值格式。如果要在图例中显示数据区域第一列的文本内容，如“产品代号”，可以在气泡图中将每一行数据作为一个数据系列，并指定每个数据系列的名称为第一列中的各个文本，Excel会自动在图例中显示这些文本内容。 但这种方法在数据较多时比较繁琐，如果用VBA代码来完成则较为快捷。在Excel 2007/2010中，如果数据区域在相邻的四列中，要设置第一列为图例中显示的文本内容，第二列为x轴，第三列为y轴，第四列为气泡大小，选择数据区域中不包含第一行标题的四列，如图： 然后执行下面的代码： Sub AddBubble()适用于Excel2007/2010Dim objCht As ChartDim i As IntegerDim iRows As Integer, iCols As IntegerDim rRng As RangeSet rRng = SelectioniRows = rRng.Rows.CountiCols = rRng.Columns.Count If iCols = 4 ThenSet objCht = ActiveSheet.ChartObjects.Add(100, 80, 400, 250).ChartFor i = 1 To iRowsWith objCht.SeriesCollection.NewSeries.ChartType = xlBubble3DEffect.Name = rRng.Item((i - 1) * 4 + 1).XValues = rRng.Item((i - 1) * 4 + 2).Values = rRng.Item((i - 1) * 4 + 3).BubbleSizes = rRng.Item((i - 1) * 4 + 4)End WithNextEnd If End Sub 在Excel 2003中执行下列代码： Sub AddBubbleFor2003()适用于Excel2003Dim objCht As ChartDim rRng As RangeDim i As IntegerDim iRows As Integer, iCols As Integer, irow As Integer, icol As IntegerOn Error GoTo line1Set rRng = SelectioniRows = rRng.Rows.CountiCols = rRng.Columns.Countirow = rRng.Rowicol = rRng.Column If iCols = 4 ThenrRng.Offset(0, 1).Resize(1, 3).SelectSet objCht = ActiveSheet.ChartObjects.Add(100, 80, 450,