气泡标签VB要点.doc

二、在气泡图中为数据点添加文本数据标签 有时我们需要在气泡图中给每个数据点添加文本数据标签，由于气泡图中的三组数据都为数值，在气泡图中给数据点添加数据标签时，数据标签也显示为数值，有些不太直观。例如在上图中，我们就希望给每个数据点添加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