使用图表系列上的滚动条更改select个案

第一次在这里发布。 我有一个简单的折线图，其中有一系列来自表格的值。 本系列可以根据导入到我的电子表格中的数据集而变化。 我需要一个dynamic图表来绘制一个滚动位置，这是在图表系列中select的数据。 我有三个单独的工作很好，但是我想把它们合并到一个滚动条，我可以点击上下调整图表的范围从完整的值，一半的价值观，四分之一的价值观范围。

Sub HalfChartDataRange() Dim Rng As Range Set Rng = Sheets("Raw Data").Range("Stats[RollPos]") ActiveChart.SetSourceData Source:=Rng.Resize(Rng.Rows.Count / 2) End Sub Sub QuarterChartDataRange() Dim Rng As Range Set Rng = Sheets("Raw Data").Range("Stats[RollPos]") ActiveChart.SetSourceData Source:=Rng.Resize(Rng.Rows.Count / 4) End Sub Sub FullChartDataRange() Dim Rng As Range Set Rng = Sheets("Raw Data").Range("Stats[RollPos]") ActiveChart.SetSourceData Source:=Rng.Resize(Rng.Rows.Count / 1) End Sub 

单独的这些程序工作很好，但创build滚动条和分配下面的macros后，我只是不断打错误，我认为我的语法是closures的。 新的VBA和慢慢学习，忍受我在这里！ 下面的代码分配给滚动条，滚动条的最小值为0，最小值为0，最大值为2，

 Sub Scrollbar1_Change() Select Case ActiveSheet.Scrollbar1.Value Case "0" Call QuarterChartDataRange Case "1" Call HalfChartDataRange Case "2" Call FullChartDataRange End Select End Sub 

以上是在模块4上，数据范围程序/子程序在同一个模块上。

在select案例行中获取“对象不支持此模块或方法”debugging

请帮助一个非常强调和沮丧的年轻分析师！ >：XXX