làm thế nào để nhảy màn hình tới vị trí Chart (i)

Liên hệ QC

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
 
Web KT
Back
Top Bottom