[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软件版本中还能使用,至于具体版本么…小伙伴们自行尝试吧!

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

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