?????Sheets("异常图表").ChartObjects("图表?3").Chart.SetSourceData?Source:=Sheets("异常图表").Range("A1:B"?&?Sheets("异常图表").Range("a65536").End(xlUp).Row)
??????????
??????????
??????????
?????????'?Sheets("异常图表").ChartObjects("图表?3").Chart.FullSeriesCollection(1).Delete
?????????
?????????'office2003
?????????Sheets("异常图表").ChartObjects("图表?3").Chart.SeriesCollection(1).ApplyDataLabels
?????????
?????????????'office2013
?????????????'Sheets("异常图表").ChartObjects("图表?3").Chart.FullSeriesCollection(1).ApplyDataLabels
未经允许不得转载：lxfamn » VBA 设置图表数据源
