[attach]19506[/attach]
-----------------------------------------------------------------
Sub TEST()
'
' TEST Macro
'
'
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(5).Select
ActiveChart.SeriesCollection(5).ApplyDataLabels
End Sub
-----------------------------------------------------------------作者: DanielCWChang 時間: 2014-11-7 10:38