phamvandunghp84
Thành viên thường trực
- Tham gia
- 5/3/20
- Bài viết
- 241
- Được thích
- 12
khi mình muốn di chuyên tới vị trí của Chart(1) mình làm như này nhưng không được, mong các bạn giúp mình:
Sub chuyenmanhinhvtoivitrichart1()
ActiveSheet.ChartObjects(1).Select
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).Select
End Sub
Trong tình huống thứ hai giờ mình muốn đổi tên theo thứ tự từ trên xuống dưới để khi kéo màn hình xem lần lượt thì làm thế nào?
mình làm như này nhưng vị trí các chart không theo thứ tự:
Sub doi_ten_bieu_do() 'muon doi ten chart theo stt
Dim j As Integer
'doi ten cho lien tuc
For j = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(j).Name = j
Next j
End Sub
Sub chuyenmanhinhvtoivitrichart1()
ActiveSheet.ChartObjects(1).Select
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).Select
End Sub
Trong tình huống thứ hai giờ mình muốn đổi tên theo thứ tự từ trên xuống dưới để khi kéo màn hình xem lần lượt thì làm thế nào?
mình làm như này nhưng vị trí các chart không theo thứ tự:
Sub doi_ten_bieu_do() 'muon doi ten chart theo stt
Dim j As Integer
'doi ten cho lien tuc
For j = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(j).Name = j
Next j
End Sub
