NatetheGreat
Active Member
- Joined
- Nov 18, 2013
- Messages
- 268
HI,
I have a scroll bar, which is formatted control current value 1 minimum value 0 and maximum value 2 with incremental change 1.
The following Code is all in module 3
this is supposed to be the case code that the scrollbar uses when clicking.
But whenever I click on the scrollbar, it just fails with a debug (object does not suppor this method)
Fails on Select Case ActiveSheet.Scrollbar1.Value
Please can someone help meeeeeeeee Im so stuck!
I have a scroll bar, which is formatted control current value 1 minimum value 0 and maximum value 2 with incremental change 1.
The following Code is all in module 3
Code:
Sub Scrollbar1_Change()
Select Case ActiveSheet.Scrollbar1.Value
Case "0"
Call FullChartDataRange
Case "1"
Call QuarterChartDataRange
Case "2"
Call HalfChartDataRange
End Select
End Sub
End Sub
this is supposed to be the case code that the scrollbar uses when clicking.
Code:
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
But whenever I click on the scrollbar, it just fails with a debug (object does not suppor this method)
Fails on Select Case ActiveSheet.Scrollbar1.Value
Please can someone help meeeeeeeee Im so stuck!
Last edited: