vandong1710
Thành viên mới

- Tham gia
- 8/10/09
- Bài viết
- 23
- Được thích
- 0
Sub below()
For i = 2 To 96 Step 2
Sheet1.ChartObjects("Chart 3").Activate
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Position = xlLabelPositionBelow
Next
End Sub