|
发表于 2017-7-13 19:58:26
|
[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软件版本中还能使用,至于具体版本么...小伙伴们自行尝试吧!
想获取文中提到的两款插件吗?
关注火箭君的公众号,并在公众号后台回复 气泡图插件 或 气泡图,我会告诉你这两款软件的下载链接哦~
喜欢我们就请关注我们吧~~
微信公众号:效率火箭(ID:xlrocket) |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?立即注册
一键登录:
x
|