NatetheGreat
Active Member
- Joined
- Nov 18, 2013
- Messages
- 268
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
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
