作者：绿色风
分类：
时间：2022-08-17
浏览：121
楼主
kevinchengcw |
Q: 如何利用vba代码从图表中提取源数据？
A: 请先选定要提取的拆线图，然后执行下述代码提取：- Sub test() '本例用于对没有提供数据源的折线图提取源数据
- Dim N&, I&, T&
- T = 1
- With ActiveChart '指定处理当前活动图表
- For N = 1 To .SeriesCollection.Count '循环数据各系列
- With .SeriesCollection(N) '于当前循环到的数据系列中进行处理
- .ApplyDataLabels xlValue '添加数据标签
- .DataLabels.ShowCategoryName = True '显示数据标签名
- .DataLabels.ShowSeriesName = True '显示序列名称
- For I = 1 To .Points.Count '循环当前数据序列中各点
- Cells(T, 1).Resize(, 3).Value = Split(.Points(I).DataLabel.Text, ", ") '依次向单元格中写入从数据标签中得到的各点相关数据
- T = T + 1 '单元格下移
- Next
- .DataLabels.Delete '删除数据标签
- End With
- T = T + 1 '单元格下移一行,使各序列之间空一行
- Next
- End With
- End Sub
详见附件。
 电机.rar
|
2楼
xmyjk |
K哥开始研究图表咯. |
3楼
kevinchengcw |
没，也是别人提问的 |
4楼
gilligan |
第05行 ” For N = 1 To .SeriesCollection.Count '循环数据各系列“ 无法通过
|
5楼
kevinchengcw |
要先选中图表再执行代码，程序针对的是activechart |
6楼
网站世界 |
请教您一个问题，我的图已经复制到word里了，原excel没有了，可是再把word里的图复制到excel时，数据就没有了，这个怎么办呢？？ |
7楼
kevinchengcw |
那要看你当初复制到word中是粘贴的是图片还是图表，如果是图表的话可能还有机会，图片就不行了 |
8楼
网站世界 |
是图表，我也下载了您的附件，我想把图表复制到excel中，但是不行，复制过去就成了一个空图表。后来我想在word中实现您的那个程序，先画了一个表，但是没成功，最开始那个选定活动图表语句似乎无法在wordVBA运行，最后也没搞懂 |
9楼
网站世界 |
要在wrod中对某一个特定图表操作，VBA的语句该怎么写呢？望解答，感激不尽啊 |
10楼
kevinchengcw |
图表操作的代码在word中是通不过的，word与excel的vba差异较大，如果粘贴的是图表是可以编辑的，你试着双击下试试 |
11楼
网站世界 |
哦，学习了。不过由于源数据的excel没有了，双击后很多点开都是告诉我不可用、、、
 |
12楼
kevinchengcw |
双击编辑状态出来后再复制图表到excel里试下能不能导出数据吧 |
13楼
老糊涂 |
学习图表VBA |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一