Using Scroll Macros assigned to a Scroll Bar in VBA

[NatetheGreat]

Hi All,

I have a chart that has a series of values as the underlying selected data. I want to be able to see the full series, half the series, and a quarter of the series.

Thanks to the geniuses of this forum, I have been provided with the following codes to make that happen.

Sub HalfRange()
Dim Rng As Range
Set Rng = Sheets("Raw Data").Range("Stats[RollPos]")
ActiveChart.SetSourceData Source:=Rng.Resize(Rng.Rows.Count / 2)

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


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

I want to have all of these attached to a scroll bar, where by clicking up or down I am scrolling from the short term (count/4) to the Mid Term (count/2) to the Full term (count/1). Is there a way to attach these three separate procedures to the scroll bar so that I can tick through it in such a fashion ?

many Thanks for all your continual help and support fellow mr.excel-ers

 

[NatetheGreat]

@EPURON

that would be a typo