Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Determining a charts source data

Sub Test1()     Dim DataRange As range     Set DataRange = ActiveSheet.range("A1:A2")     ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Values = DataRange End Sub