Tohle funguje na office 2010 ale na offise 2003 už ne
ActiveSheet.ChartObjects("HC_U_Z").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = Worksheets(jlistu).Range(gra1) 'tady se to sekne
ActiveChart.SeriesCollection(1).Values = Worksheets(jlistu).Range(Gra2)
citovat