批量出图

yu-gn

网络当了好几天

收到，谢谢各位大虾

实验中。。。。

yu-gn

痛苦亚

怎么在我这里就不通过呢？？

win98se，office2000，简体中文版

运行到

.SetSourceData Source:=Cells(i + 1, 1).Resize(Cells(i, 2), 2), PlotBy _ :=xlColumns

这一步停止

提示“运行错误“1004”

方法cells作用于对象_global时失败”

chenjun

你检查一下SHEET1的B1格（也就是第一个cs001右面一格）中是否为空，这一格中应该为cs001图用的数据行的总数。

yu-gn

我检查了，没有空格，但还是老问题

chenjun版主，我在一楼有数据源，你可不可以试验一下？？？这个问题已经困扰我好久了

顺便问一下：是不是在用循环的方法选择单元格的时候，不能用“range”，而只能用“cells”？？但是cells的方法每次只能选中一个单元格，我怎样一次选中多个呢？？？是不是使用“resize属性”？？？

taller

以下是引用yu-gn在2004-11-24 14:46:00的发言：

我检查了，没有空格，但还是老问题

chenjun版主，我在一楼有数据源，你可不可以试验一下？？？这个问题已经困扰我好久了

顺便问一下：是不是在用循环的方法选择单元格的时候，不能用“range”，而只能用“cells”？？但是cells的方法每次只能选中一个单元格，我怎样一次选中多个呢？？？是不是使用“resize属性”？？？

我的那个文件就是在你的1楼文件基础上实现了,所以数据应该没有问题.不知道问题在哪里?

是否使用Range和循环没有关系,选中多个单元格可以用Resize也可以直接用Range

yu-gn

但是我事先不知道要选定哪些个单元格，需要根据文件中给定（就像我传的源文件），所以必须用变量，range可以用变量么？？？好像不行吧？？

yu-gn

我换了台机器

xp，office2003（简体中文）

问题依旧，vba分版本么？？？

yu-gn

问题总是在添加数据源的时候出错

问题是不是因为当前活动对象是图表，而不是“sheet1”的缘故，导致程序找不到cells

对vba我也不懂，还望高手再费心看看

[此贴子已经被作者于2004-11-25 10:01:27编辑过]

chenjun

你没有将此段代码放在sheet1对象模块中，要是放在别的地方，所有对工作表的引用前必须指定具体的表。可以修改如下： Sub Drawing() Dim CrtSource As Range Dim SeriesName As String Worksheets("sheet1").Activate Application.ScreenUpdating = False For i = 1 To [a65536].End(xlUp).Row If Left(Cells(i, 1), 2) = "cs" Then Set CrtSource = Cells(i + 1, 1).Resize(Cells(i, 2), 2) SeriesName = Cells(i, 1) Charts.Add With ActiveChart .ChartType = xlXYScatterLines .SetSourceData Source:=CrtSource, PlotBy:=xlColumns .SeriesCollection(1).Name = SeriesName .Location Where:=xlLocationAsObject, Name:="Sheet1" End With crt = ActiveChart.Name crt = Mid$(crt, InStr(1, crt, "图表 ")) Worksheets("sheet1").Activate With ActiveSheet.Shapes(crt) .Top = Cells(i, 4).Top .Left = Cells(i, 4).Left .Height = Cells(i, 2) * Cells(i, 2).Height End With End If Next Application.ScreenUpdating = True MsgBox "Ready" End Sub

yu-gn

哇，成功了，激动呀

千万个谢字都表达不了我的心情！！！！