Solved: ActiveChart Source PlotBy…With Scroll.

[omnibuster]

Hi.

I was trying to make Chart with ScrollBar, but no sucsess??

Private Sub ScrollBar1_Change()
Dim Range1 As Range
Range("F2").Select 'ScrollBar.value

Set Range1 = Range("A2", ActiveCell.Value)
' Range1.Select

ActiveSheet.ChartObjects("ANA").Activate
ActiveChart.PlotArea.Select

' ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A2:D136"), PlotBy _
:=xlColumns

' .Application-defined or object-defined Error
ActiveChart.SetSourceData Source:=ActiveSheet.Range(Range1), PlotBy _
:=xlColumns
End Sub

[p45cal]

try:
ActiveChart.SetSourceData Source:=Range1, PlotBy:=xlColumns
also consider changing
Set Range1 = Range("A2", ActiveCell.Value)
to
Set Range1 = Range("A1", ActiveCell.Value)
to keep your titles.

If D is always going to be the rightmost column, you could replace the entire code in the sub with just one line:
ChartObjects("ANA").Chart.SetSourceData Source:=Range("A1:D" & ScrollBar1.Value), PlotBy:=xlColumnswhich eliminates all selecting during the process.
If D isn't always the rightmost column, there are other ways to achieve the same thing.
You could get away with shortening it even more:
ChartObjects("ANA").Chart.SetSourceData Source:=Range("A1:D" & ScrollBar1.Value)

[omnibuster]

Thanks p45cal.



ChartObjects("ANA").Chart.SetSourceData Source:=Range("A1:D" & ScrollBar1.Value), PlotBy:=xlColumns

Works good.
This was excample file.
Now i need to link code in my original file.