用VBA绘制可变区域的折线图，怎么实现

zhujiayi1991

  用vba将一个excel拆分成多个Excel文件，同时各个excel根据表中数据生成折线图，因为每张表区域不同，所以选择区域用一下这句出来图是空的
下面是录制的宏，没有报错，问题应该出现在标示出来的红色字体部分。  ActiveChart.SetSourceData Source:=Range("A23:H" & [H65536].End(xlUp).Row)

1.    ActiveSheet.Shapes.AddChart.Select
   
2.     ActiveChart.ChartType = xlLine
   
3.     ActiveChart.SeriesCollection.NewSeries
   
4.     ActiveChart.SeriesCollection(1).Name = "=Sheet4!$A$24"
   
5.     ActiveChart.SeriesCollection(1).Values = "=Sheet4!$B$24:$H$24"
   
6.     ActiveChart.SeriesCollection(1).XValues = "=Sheet4!$B$23:$H$23"
   
7.    ActiveChart.SetSourceData Source:=Range("A23:H" & [H65536].End(xlUp).Row)
   
8.     ActiveWindow.SmallScroll Down:=-105
   
9.     ActiveChart.Legend.Select
   
10.     Selection.Delete
    
11.     ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 141.75, _
    
12.         16.8750393701, 78, 18.75).Select
    
13.     Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "BF调整结果"
    
14.     Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6).ParagraphFormat. _
    
15.         FirstLineIndent = 0
    
16.     With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 2).Font
    
17.         .NameComplexScript = "+mn-cs"
    
18.         .NameFarEast = "+mn-ea"
    
19.         .Size = 11
    
20.         .Name = "+mn-lt"
    
21.     End With
    
22.     With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(3, 4).Font
    
23.         .NameComplexScript = "+mn-cs"
    
24.         .NameFarEast = "+mn-ea"
    
25.         .Size = 11
    
26.         .Name = "+mn-lt"
    
27.     End With

复制代码

想要的得到的图

CC例例

ActiveChart.SetSourceData Source:=Range("$A$23:$H" & "$" & [H65536].End(xlUp).Row)

lsc900707

改成绝对引用试试>>>>>>>>>

zhujiayi1991

CC例例 发表于 2016-10-8 16:06
ActiveChart.SetSourceData Source:=Range("$A$23:$H" & "$" & [H65536].End(xlUp).Row)

改了 还是一样啊、

zhujiayi1991

lsc900707 发表于 2016-10-8 16:11
改成绝对引用试试>>>>>>>>>

怎么改。。

CC例例

zhujiayi1991 发表于 2016-10-8 16:19
改了 还是一样啊、

Range前面加上工作表名称。如：Sheet1

lsc900707

zhujiayi1991 发表于 2016-10-8 16:19
怎么改。。

上面几句代码里面就用的绝对引用啊
ActiveChart.SetSourceData Source:=Sheet4.Range("$A$23:$H" & [H65536].End(xlUp).Row)

zhujiayi1991

CC例例 发表于 2016-10-8 16:31
Range前面加上工作表名称。如：Sheet1

提示要求对象

zhujiayi1991

lsc900707 发表于 2016-10-8 16:40
上面几句代码里面就用的绝对引用啊
ActiveChart.SetSourceData Source:=Sheet4.Range("$A$23:$H" & [H65 ...

提示要求对象

zhujiayi1991

一个主excel拆分出来成多个excel，然后每个excel根据数据做出折线图，所以每张表的行数会不一样。。