如何在图像(chart)里设定源数据(source data)

一意孤行

参考

http://club.excelhome.net/viewthread.php?tid=66000

[此贴子已经被chenjun于2005-5-20 15:30:35编辑过]

seenosee

我照第11楼的方法试过，还是不行。这个“数据区域”可还真有点麻烦呀！

不过，还是很感谢热心的一意孤行朋友和朋友们的耐心解答！

chenjun

其实不要苛求用VBA直接找出“图表〉数据源”中的引用区域，VBA中可以设置这个“数据源”，而没有直接取出“数据源”的属性。 因为不是所有的图表都是通过“数据源”设置的，不如用VBA获得每个系列的引用区域或修改引用，应该说修改引用的作用更实际。

wizardfan

首先谢谢大家的热情帮助，cheers[em10]

[em06] 其次我真的要怀疑自己的中文能力。我重新阐述一下我的问题吧。比如在一个sheet里有8列数据A-H, 我选取其中连续的任意多列数据（比如3列，B-D），并经过一定的计算，比如每个cell加上一个随机数，把相应的结果放到新的列中 （J-L），并对新产生的3列做折线图。因为我所选折的列数是不固定的，所以我需要一个相应动态的VBA来做这个事情。在我以前的描述中就是在

Charts.Add ActiveChart.ChartType = xlLine ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range( _ "A1:A145,C1:C145,E1:E145"), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

的代码中，给Range（。。。）中进行赋值，比如对应我的例子就是形成 Range("J1:J100,K1:K100,L1:L100) ,当然行数也是通过VBA得到的。

各位达人给的回复主要是返过来的过程，有了图以后得到datasource，而我想要的是给定datasource然后再做图，只是这个datasource是动态的。

chenjun

你的中文表述没有问题！是后面跟贴的会员问了相反操作的问题，你的问题是要先求出一个代表多个区域地址的字符串并放在一个变量中，这个你应该可以根据你需要的规律自己实现的，如果这个字符串变量为X，修改已有图表“数据源”的代码可以如下 ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range( X), PlotBy:=xlColumns

wizardfan

谢谢大家的帮忙，虽然有点晚，我终于结束了所有相关的代码。