Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 新闻动态
  • Excel资源
  • 关于我们

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中交流网 联系方式

QQ:18449932 


网  址:www.excel-cn.com  

当前位置:网站首页 > Excel教程 > Excel VBA
Excel 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 Counter

    End Sub


然后运行这个命令即可。


18b000028f0aa50c3a40.gif


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

点击次数:  更新时间:2017-04-01 16:11:12  【打印此页】  【关闭】
上一条:EXCEL VBA 取当前登录 用户名的多种实现方法  下一条:Excel设计文本透视效果
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

中山市天鸣科技发展有限公司 版权所有 1999-2024 粤ICP备10043721号

QQ:18449932

免费Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表、Excel VBA

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2025  www.metinfo.cn