Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 6914|回复: 9

[已解决]散点图怎么添加数据标签呢?

[复制链接]
发表于 2016-3-22 12:53 | 显示全部楼层 |阅读模式
散点图.rar (9.75 KB, 下载次数: 8)
散点图加数据标签.jpg
发表于 2016-3-22 14:09 | 显示全部楼层
回复

使用道具 举报

发表于 2016-3-22 15:49 | 显示全部楼层    本楼为最佳答案   
Sub test()
    Dim sc As Series
    Dim n As Integer
    Dim i As Integer

    'sheet1的第1个图表对象的系列1
    Set sc = Sheets(1).ChartObjects(1).Chart.SeriesCollection(1)
    '必须先应用数据标签,再设置标签内容
    sc.ApplyDataLabels Type:=xlDataLabelsShowLabel
    '该系列中数据点的个数
    n = sc.Points.Count
    '可选,数据标签的位置:靠左
    sc.DataLabels.Position = xlLabelPositionLeft

    For i = 1 To n
        sc.Points(i).DataLabel.Text = Cells(i + 1, 1)
    Next i

End Sub

散点图7.rar (18.52 KB, 下载次数: 28)

点评

挺好用的,就是水平太菜,代码有点读不很懂,没关系啦!谢谢爱疯  发表于 2016-3-23 14:23
回复

使用道具 举报

发表于 2016-3-22 16:11 | 显示全部楼层
参考一下吧,,你的表不对
QQ截图20160322160250.png

20160322散点图.rar

11.68 KB, 下载次数: 4

回复

使用道具 举报

发表于 2016-3-22 16:13 | 显示全部楼层
爱疯 发表于 2016-3-22 15:49
Sub test()
    Dim sc As Series
    Dim n As Integer

你的系列
QQ截图20160322160552.png
回复

使用道具 举报

发表于 2016-3-22 16:16 | 显示全部楼层
爱疯 发表于 2016-3-22 15:49
Sub test()
    Dim sc As Series
    Dim n As Integer

版主这是直接赋值数据标签吗??

点评

恩,散点图就是我做的那个样子,但是标签确不想显示数据,我只要显示省份  发表于 2016-3-23 14:21

评分

参与人数 1 +6 收起 理由
徐淑颖 + 6

查看全部评分

回复

使用道具 举报

发表于 2016-3-22 16:33 | 显示全部楼层
02761752696 发表于 2016-3-22 16:11
参考一下吧,,你的表不对

能否明确说明一下,我的表中是哪儿不对吗?
回复

使用道具 举报

发表于 2016-3-22 16:36 | 显示全部楼层
爱疯 发表于 2016-3-22 16:33
能否明确说明一下,我的表中是哪儿不对吗?

版主大人 见谅   回复错了楼层  
请问  版主这是直接赋值数据标签吗??
回复

使用道具 举报

发表于 2016-3-22 16:49 | 显示全部楼层
02761752696 发表于 2016-3-22 16:36
版主大人 见谅   回复错了楼层  
请问  版主这是直接赋值数据标签吗??

是直接赋值,不过是通过代码完成的。
图表操作我不大熟,没找着有关的设置方法。
好像只有以下几种方式:


方法1:手动一个个修改。
方法2:通过代码,循环赋值。
方法3:找工具。比如,百度"xy chart labeler",发现这工具据说可以。
回复

使用道具 举报

发表于 2016-3-22 17:01 | 显示全部楼层
爱疯 发表于 2016-3-22 16:49
是直接赋值,不过是通过代码完成的。
图表操作我不大熟,没找着有关的设置方法。
好像只有以下几种方式 ...

谢谢解答  
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 17:01 , Processed in 0.492324 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表