在VBA中如何控制折线图显示的数据区域？

chengsijing

各位高手，请教一下：
如下图，我用excel生成了折线图（注意：折线图的数据列不一定是连续的，例如里面是A-C-D这三列数据），折线图默认是显示A/C/D三列从第2行至36行的数据。我想输入10和30，在VBA里控制让折线图的A/C/D三条线显示的范围从第10行到30行，设置完后，这个折线图的水平轴标签是对应的行号，例如现在是10~30行，这个折线图的水平轴数值应该就是10~30，这样我好在观察折线图的时候知道某点在哪个位置。
这个代码怎么写？
附件是原始的excel表文件。
十分感谢！！！

chengsijing

我录制宏后，根据宏的代码改写了一下。实现了功能。但我对代码有3个想改进的问题，看有哪个高手帮我改进：
'问题1：这个"图表 2"是哪里看到的？怎么修改？有没有默认值的写法？不然每次都要录制宏一边，看看这图表的名称才能设置它？
'问题2：一列这种写法.FullSeriesCollection(1).Values 感觉有点笨，而且怕对错了行，我查资料网上有ActiveChart.SetSourceData Source:= 这种写法，这种写法针对不同列（列之间不一定连续，例如A/C/D列怎么写？哪种写法速度最快？
'问题3：我发现使用默认的水平坐标轴，它会自动从1开始，而不是10开始。我目前只能再加一列，把实际行ID数写上，用下面语句设才能达到 水平坐标轴的数值是这个数实际的行数。有没有方法不用加行ID就可以自动做到？
还有水平坐标要每列的.XValues都要设置一次，不然“选择数据”里面会看到不设置的列的水平坐标没有跟着变化。有语法设置这几条折线都公用一条水平坐标吗？每列都要重新设置太麻烦了

1. Sub 设置图形数据区域()
   
2. '关闭屏幕刷新
   
3.     Dim start As Double
   
4.     Application.ScreenUpdating = False
   
5.     Application.Calculation = xlCalculationManual
   
6.     start = Timer()
   
7.    
   
8.     Dim dangqianWS As Worksheet
   
9.     Dim kaishiHang As Long, jiezhiHang As Long
   
10.     Set dangqianWS = ActiveWorkbook.ActiveSheet
    
11.     With dangqianWS
    
12.         kaishiHang = .Cells(2, 8).Value   '开始行
    
13.         jiezhiHang = .Cells(2, 9).Value   '截至行
    
14. '问题1：这个"图表 2"是哪里看到的？怎么修改？有没有默认值的写法？不然每次都要录制宏一边，看看这图表的名称才能设置它？
    
15.         .ChartObjects("图表 2").Activate
    
16.         'Application.CutCopyMode = False
    
17.         With ActiveChart
    
18. '问题2：一列这种写法.FullSeriesCollection(1).Values 感觉有点笨，而且怕对错了行，我查资料网上有ActiveChart.SetSourceData Source:= 这种写法，这种写法针对不同列（列之间不一定连续，例如A/C/D列怎么写？哪种写法速度最快？
    
19.             .FullSeriesCollection(1).Values = "=Sheet1!$A$" & kaishiHang & ":$A$" & jiezhiHang
    
20.             .FullSeriesCollection(2).Values = "=Sheet1!$C$" & kaishiHang & ":$C$" & jiezhiHang
    
21.             .FullSeriesCollection(3).Values = "=Sheet1!$D$" & kaishiHang & ":$D$" & jiezhiHang
    
22. '问题3：我发现使用默认的水平坐标轴，它会自动从1开始，而不是10开始。我目前只能再加一列，把实际行ID数写上，用下面语句设才能达到 水平坐标轴的数值是这个数实际的行数。有没有方法不用加行ID就可以自动做到？
    
23. '还有水平坐标要每列的.XValues都要设置一次，不然“选择数据”里面会看到不设置的列的水平坐标没有跟着变化。有语法设置这几条折线都公用一条水平坐标吗？每列都要重新设置太麻烦了
    
24.             .FullSeriesCollection(1).XValues = "=Sheet1!$A$" & kaishiHang & ":$A$" & jiezhiHang    '设置水平坐标轴的数值范围
    
25.             .FullSeriesCollection(2).XValues = "=Sheet1!$A$" & kaishiHang & ":$A$" & jiezhiHang    '设置水平坐标轴的数值范围
    
26.             .FullSeriesCollection(3).XValues = "=Sheet1!$A$" & kaishiHang & ":$A$" & jiezhiHang    '设置水平坐标轴的数值范围
    
27.         End With
    
28.     End With
    
29.     Set dangqianWS = Nothing
    
30.     Application.Calculation = xlCalculationAutomatic   '自动计算
    
31.     Application.ScreenUpdating = True    '打开屏幕刷新
    
32.     Application.StatusBar = "程序运行时间 " & Format(Timer - start, "0.0") & " 秒"
    
33. End Sub
    

复制代码

1. <blockquote>
   

复制代码