[Excel]三招让你快速添加气泡图标签

“

制作过气泡图或者散点图的小伙伴一定碰到过一个头疼的问题：如何才能给气泡图或者散点图添加标签？难道只能逐一添加？

本期火箭君就要介绍3招让你拥有快速添加气泡图标签的技能。

01

利用VBA

在VBA中插入一个模块，并添加以下宏命令：

Sub AttachLabelsToPoints()   '定义变量.   Dim Counter As Integer, ChartName As String, xVals As String

  '宏运行时禁止屏幕刷新.   Application.ScreenUpdating = False   '将第一系列的图表公式存储为xVals.   xVals = ActiveChart.SeriesCollection(1).Formula  

  '抽取出气泡图中数据的区域.   xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _      Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))   xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)   Do While Left(xVals, 1) = ","      xVals = Mid(xVals, 2)   Loop   '将每个数据的标签添加到图表中.   For Counter=1 to Range(xVals).Cells.Count        ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel =True        ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = Range(xVals).Cells(Counter,1).Offset(0, -1).Value   Next CounterEnd Sub

然后运行这个命令即可。

>>> 不过要注意，要运行成功对于原数据的排列有所要求。如同上图所示，原数据应该按照【标签】|【x轴数据】|【y轴数据】，这样的列顺序进行排列。

02

利用XY Chart Labels工具

安装完工具后，选中图表，点击Add Labels，再选择标签区域。完成。

03

利用JWalk Chart Tool工具 （非推荐）

这个工具也很简单，加载后，你会看到一个新的加载项。选中图表，点击JWalk Chart Tools，在弹出的对话框中选择第一个标签栏Data Labels。然后再Data label range中选择标签所在的位置，即可。

>>> 细心的小伙伴可能注意到了，上述演示的系统和版本显然和之前的不同。是的，因为我发现在这个插件居然在我的win8.1+Office2013中会报错。估计是因为兼容性问题，毕竟插件作者的上次更新还是在2002年。。。不过在我的Win7+Office2010中还能继续使用。因此目测这工具可能在较旧的系统和Office软件版本中还能使用，至于具体版本么...小伙伴们自行尝试吧！

想获取文中提到的两款插件吗?

关注火箭君的公众号，并在公众号后台回复 气泡图插件 或 气泡图，我会告诉你这两款软件的下载链接哦！