请教一个有关图表的问题

qinshengwu · 发表于 2003-8-18 15:20

各位大虾大家好：小弟初次登录此论坛，请多多关照！我想请问一个问题：俺们老师给我了四五千个散点图，其中有一千个要显示出数据，然后美化一下，每页放八张图，排一下版，每页还要有标题和边框等东西，请问有没有什么好办法，简单一些的，如可不可以把数据区加到图里面，跟随图而移动。请问是在excel中排方便，还是在word中方便？数据还要按一定表格格式显示，现有的数据是在各张图表下，一块一块的，请各位大哥帮帮忙，我这老师让我在四天之内打印出来，都快把我逼疯了。求求各位大哥，帮帮忙好吗？

浮云 · 发表于 2003-8-18 15:46

上传文件吧！

qinshengwu · 发表于 2003-8-18 16:05

这只是其中的一小部分，可是愁死我了，图表的大小还不让我裁剪，这是什么原因呢？谢谢

qinshengwu · 发表于 2003-8-18 16:08

rwGwQWT3.rar (17.43 KB, 下载次数: 44)

qinshengwu · 发表于 2003-8-18 16:09

qinshengwu · 发表于 2003-8-18 16:15

四五千个图，排成500页，要在四天内完成，排都累死我了，哥哥们有没有简单迅速的方法？快帮帮小弟呀!

格子人生 · 发表于 2003-8-18 17:00

建议： 1、先按5楼的图片中的排列方式做好一页； 2、选中刚才做好的那一页，向下拖放填充500页；（当然最好用VBA实现复制—粘贴） 3、利用VBA代码，改变4000个图表的数据源； Name = "图表 " & ID ActiveSheet.ChartObjects(Name).Activate ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range("C13:C14,D13:D14"),PlotBy:=xlRows '将当前图表的数据源指向对应的位置 4、从另外一张表Sheet1中读取数据填写到Sheet2中对应的位置。 -_-

qinshengwu · 发表于 2003-8-18 17:59

谢谢格子大哥我知道VBA应该是可以的，但是小弟才疏学浅，不知道怎么用啊，不知道往哪填代码呀，是加一个按钮，把代码加到里面吗？那其它的怎么拖放呢？而且我还不知道怎么裁剪，不裁剪一页是放不下8个的，我已经把excel文件发到上面了，格子大哥能不能好人做到底，给一个示范，小弟万分感激，哥哥来长春，弟弟好好招待你！

		自动登录	找回密码
密码			免费注册

请教一个有关图表的问题

这是excel图表和数据

这是excel图表和数据

这是老师要求的样子

哥哥，快帮忙啊

用 VBA 吧~~~

谢谢格子大哥