Lỗi Run-time error '-2147417848 (80010108)': Method 'Add' of object 'ChartObjects' failed

[study01]

Xin nhờ các Cao thủ diễn đàn xem giúp, dưới đây là 1 phần thiết lập cho đồ thị
Dim chrt As ChartObject
Set chrt = ActiveSheet.ChartObjects.Add(letrai_dt, letren_dt, chieudai_dt, chieucao_dt)
chrt.Chart.Type = xlLine
chrt.Name = "do thi 1"
* Nếu như chạy 1 mình thì vẫn vẽ đồ thị không sao cả, nhưng khi cho vào sub khác để chạy thì lúc được lúc không, và báo lỗi Run-time error '-2147417848 (80010108)': Method 'Add' of object 'ChartObjects' failed
* Nếu gán các sub cho các nút bấm điều khiển thì chạy được, nhưng khi gộp vào 1 sub chung gán cho 1 nút bấm thì lại báo lỗi trên
Mong các cao thủ, đặc biệt cao thủ Huyền thoại GPE cho vài chỉ giáo để khắc phục, trân trọng cảm ơn các cao thủ, chúc các cao thủ luôn vui khỏe

 

[befaint]

ActiveSheet

Ở nhà thì làm được. Chạy sang hàng xóm không làm ăn được gì.
Vậy viết code chạy về nhà rồi làm, xong việc lại chạy về chỗ cũ.

 

[VetMini]

Ở nhà thì làm được. Chạy sang hàng xóm không làm ăn được gì.
Vậy viết code chạy về nhà rồi làm, xong việc lại chạy về chỗ cũ.

Tính lấy chức "cao thủ huyền thoại" hở?