Excel 在图表系列上使用滚动条更改选择案例

第一次在这里发布。我有一个简单的折线图，它有一系列表中的值。根据导入到电子表格中的数据集，此系列可能会有所不同。我需要一个绘制滚动位置的动态图表，这是在图表系列中选择的数据。我有三个Sub，它们各自工作得很好，但是我想将它们合并到一个滚动条中，在滚动条中我只需点击上下键即可将图表的范围从完整值调整到一半值，再调整到四分之一值范围

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

单独来说，这些程序工作得很好，但是在创建滚动条并指定下面的宏之后，我只是不断地遇到错误，我认为我的语法有点不对劲。刚接触VBA，学习缓慢，请在这里耐心等待！以下内容分配给滚动条，滚动条的最小值为0，当前值为0，最大值为2，增量为1

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上，数据范围程序/子程序在同一模块上

在选择案例行上获取“对象不支持此模块或方法”调试

---

请帮助一位非常紧张和沮丧的年轻分析师！>：xxx

尝试

Me.Scrollbar1.Value

而不是

ActiveSheet.Scrollbar1.Value