Question

第一次在这里发帖。我有一个简单的折线图，其中包含一系列表格中的值。此系列可能会根据导入我的电子表格的数据集而有所不同。我需要一个动态图表绘制滚动位置，这是在图表系列中选择的数据。我有三个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上，数据范围过程/子程序在同一模块上。

在选择案例行

上获取“对象不支持此模块或方法”调试

请帮助一位非常紧张和沮丧的年轻分析师！＆GT;：XXX

在图表系列中选择滚动条更改的案例

0 个答案: