?????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
VBA 设置图表数据源
最新推荐文章于 2024-04-14 12:19:10 发布