Hỏi cách load Chart lên UserForm1

[gameonly308]

Chào các bác, em có Chart 1 như file đính kèm, em muốn load lên UserForm1 nhưng không hiểu sao viết code rồi mà nó không load lên.
Mong các bác vào xem file và hướng dẫn giúp em với ạ. Em cảm ơn!

 

[ongke0711]

- Chart là object thì bạn phải dùng Set. Set MyChart =...
- Chỗ câu lệnh If IsDate(DatePicker) chứ không phải IsNumeric nhé.

 

[gameonly308]

- Chart là object thì bạn phải dùng Set. Set MyChart =...
- Chỗ câu lệnh If IsDate(DatePicker) chứ không phải IsNumeric nhé.

Bác cho em hỏi chỗ xác định tên Chart như vậy đúng chưa? Ví dụ em có 3 Chart tên: So_1, So_2,So_3 thì cách xác định để gán vào code thế nào ạ?
Vì em dùng Set myChart = sh.Shapes(A001_95).Chart thì đều bị báo lỗi ạ.
Được rồi bác ạ, em thiếu "A001_95"

 

[gameonly308]

- Chart là object thì bạn phải dùng Set. Set MyChart =...
- Chỗ câu lệnh If IsDate(DatePicker) chứ không phải IsNumeric nhé.

Bác cho em hỏi nếu dùng trên Multipage thì câu lệnh có thay đổi gì không?
Em dùng cũng code như thế thì không hiện được Chart

 

[ongke0711]

Bác cho em hỏi nếu dùng trên Multipage thì câu lệnh có thay đổi gì không?
Em dùng cũng code như thế thì không hiện được Chart

Trên Multipage thì khi tham chiếu đến control Image1 trên đó cũng không đổi (me.image1) nên kéo nó vào page cũng không ảnh hưởng.
bạn xem lại việt Set Chart thử.
Set myChart = sh.ChartObjects("Chart1").Chart

 

[gameonly308]

Trên Multipage thì khi tham chiếu đến control Image1 trên đó cũng không đổi (me.image1) nên kéo nó vào page cũng không ảnh hưởng.
bạn xem lại việt Set Chart thử.
Set myChart = sh.ChartObjects("Chart1").Chart

Không cần biết image ở trên page nào hả bác, nó cứ tìm đúng tên image và load lên thôi ah, mặc dù mình đang trên page1

 

[gameonly308]

Trên Multipage thì khi tham chiếu đến control Image1 trên đó cũng không đổi (me.image1) nên kéo nó vào page cũng không ảnh hưởng.
bạn xem lại việt Set Chart thử.
Set myChart = sh.ChartObjects("Chart1").Chart

Chào bác, khi em chạy UserForm nó bị lỗi: Run-time Error '481' Invalid picture
Giờ làm thế nào để sửa được bác ?

 

[ongke0711]

Chào bác, khi em chạy UserForm nó bị lỗi: Run-time Error '481' Invalid picture
Giờ làm thế nào để sửa được bác ?

Bạn xem lại dùng file ảnh đuôi gì? PNG là không được đó. Image control nó chỉ hỗ trợ một số định dạng file như trong cái danh sách nó sổ xuống thôi.

 

[gameonly308]

Bạn xem lại dùng file ảnh đuôi gì? PNG là không được đó. Image control nó chỉ hỗ trợ một số định dạng file như trong cái danh sách nó sổ xuống thôi.

JPG bác ơi, hqua làm vẫn chạy bình thường, hnay làm load Form lên thì toàn báo lỗi @@

Bài đã được tự động gộp: 29/5/19

Bạn xem lại dùng file ảnh đuôi gì? PNG là không được đó. Image control nó chỉ hỗ trợ một số định dạng file như trong cái danh sách nó sổ xuống thôi.

Em check trong %temp% thì các file jpg trích xuất ra thì có 1 file 9kb còn các file khác 0kb, xoá hết đi run form vẫn như vậy. Bác có cách nào khắc phục được ko ạ. Em search google mà cũng chưa thấy giải pháp nào dùng đc.

 

[ongke0711]

Em check trong %temp% thì các file jpg trích xuất ra thì có 1 file 9kb còn các file khác 0kb, xoá hết đi run form vẫn như vậy. Bác có cách nào khắc phục được ko ạ. Em search google mà cũng chưa thấy giải pháp nào dùng đc.

Vậy bạn xem lại đoạn code export chart object. Bạn Activate cái chart object, rồi mới export. Tôi thấy Excel hay có mấy trường hợp phải .Select hoặc .Activate đối tượng hay sheet cần cập nhật rồi code mới chạy đúng.
Vd:
sh.ChartObjects("Chart1").Activate
....
myChart.Export...

 

[gameonly308]

Vậy bạn xem lại đoạn code export chart object. Bạn Activate cái chart object, rồi mới export. Tôi thấy Excel hay có mấy trường hợp phải .Select hoặc .Activate đối tượng hay sheet cần cập nhật rồi code mới chạy đúng.
Vd:
sh.ChartObjects("Chart1").Activate
....
myChart.Export...

Vâng để em thử Select xem, Activate thì Activate Sheet hợp lý hơn.
Cũng đọc trên 1 forum hiden với unhiden nhưng làm ko được bác ạ.
Từ lúc em thêm code trong Workbooks_Open() thì bị lỗi đó thì phải.

 

[batman1]

Nếu bạn nhập đúng là

Set myChart = sh.ChartObjects("Chart1").Chart

thì hãy sửa lại thành

Set myChart = sh.ChartObjects("Chart 1").Chart

Không phải Activate gì cả.

 

[chiendich]

Chào các bác, em có Chart 1 như file đính kèm, em muốn load lên UserForm1 nhưng không hiểu sao viết code rồi mà nó không load lên.
Mong các bác vào xem file và hướng dẫn giúp em với ạ. Em cảm ơn!

Xem thử nhé!

Private Sub UserForm_Initialize()
    Set g = Sheets("Tank_Chart").ChartObjects(1).Chart
    hinh = ActiveWorkbook.Path & "\" & "A001_95.jpg"
    g.Export Filename:=hinh, FilterName:="jpg"
    Image1.Picture = LoadPicture(hinh)
End Sub

 

[ongke0711]

Nếu bạn nhập đúng là

Set myChart = sh.ChartObjects("Chart1").Chart

thì hãy sửa lại thành

Set myChart = sh.ChartObjects("Chart 1").Chart

Không phải Activate gì cả.

Code tên chart, bạn này dùng theo tên của bạn ấy đặt và đang chạy tốt nhưng sau mấy ngày thì bị lỗi 0kb cho file ảnh.
Lỗi này MS cũng có nhìn nhận và cách khắc phục có thể là .Active đối tượng đó.

 

[gameonly308]

Vâng để em thử Select xem, Activate thì Activate Sheet hợp lý hơn.
Cũng đọc trên 1 forum hiden với unhiden nhưng làm ko được bác ạ.
Từ lúc em thêm code trong Workbooks_Open() thì bị lỗi đó thì phải.

Bị báo lỗi: Compile Error - Method or data member not found bác ạ

Bài đã được tự động gộp: 30/5/19

Em chào các bác, sau khi tham khảo hướng dẫn của các bác, em thấy thêm 2 dòng code này vào thì nó chạy ạ
Sheet1.Select
ActiveSheet.ChartObjects("Chart1").Activate
Em cảm ơn các bác nhiều !

 

[batman1]

Code tên chart, bạn này dùng theo tên của bạn ấy đặt và đang chạy tốt nhưng sau mấy ngày thì bị lỗi 0kb cho file ảnh.
Lỗi này MS cũng có nhìn nhận và cách khắc phục có thể là .Active đối tượng đó.

Bạn để ý sẽ thấy Chart của người ta có tên là "Chart 1" chứ không là "Chart1".
Tôi gợi ý sửa nhưng người ta không sửa thì cũng chịu, chả ép được.

Nếu sửa rồi mà vẫn cho là có lỗi thì đính kèm tập tin đã sửa lên đây. Còn kiểu "Bị báo lỗi: Compile Error - Method or data member not found bác ạ" thì đợi đến Tết sau nhé.

 

[gameonly308]

Code tên chart, bạn này dùng theo tên của bạn ấy đặt và đang chạy tốt nhưng sau mấy ngày thì bị lỗi 0kb cho file ảnh.
Lỗi này MS cũng có nhìn nhận và cách khắc phục có thể là .Active đối tượng đó.

Chào bác, bác cho em hỏi chuyện nằm ngoài tiêu đề của Post 1 chút ạ.
Trên excel của em phải thêm vào toolbox trong VBA hàm DatePick. Vậy giờ file em hoàn thiện và gửi cho người khác xem thì có bị lỗi khi mở lên không ạ. Lỗi ở phần DatePicker ý!
Em cảm ơn !

 

[ongke0711]

Chào bác, bác cho em hỏi chuyện nằm ngoài tiêu đề của Post 1 chút ạ.
Trên excel của em phải thêm vào toolbox trong VBA hàm DatePick. Vậy giờ file em hoàn thiện và gửi cho người khác xem thì có bị lỗi khi mở lên không ạ. Lỗi ở phần DatePicker ý!
Em cảm ơn !

Qua máy khác phải đăng ký cái OCX MS MonthView 6.0 (MSCOMCT2.OCX) mới chạy được Date picker nhé.
Tốt nhất là bạn kiếm cái Calendar nào tự tạo bằng userform thay thế Date Picker để khỏi rắc rối vụ cài OCX chưa kể nó không tương thích với win 64 bit nữa đó.
Bạn xem link về lịch tự tạo của bạn Hoàng Trọng Nghĩa: https://www.giaiphapexcel.com/diend...n-bản-cuối-cùng-excel-2007-trở-về-sau.109429/

 

[gameonly308]

Qua máy khác phải đăng ký cái OCX MS MonthView 6.0 (MSCOMCT2.OCX) mới chạy được Date picker nhé.
Tốt nhất là bạn kiếm cái Calendar nào tự tạo bằng userform thay thế Date Picker để khỏi rắc rối vụ cài OCX chưa kể nó không tương thích với win 64 bit nữa đó.
Bạn xem link về lịch tự tạo của bạn Hoàng Trọng Nghĩa: https://www.giaiphapexcel.com/diendan/threads/tặng-tiện-ích-calendar-phiên-bản-cuối-cùng-excel-2007-trở-về-sau.109429/

Cái này trên máy mới vẫn phải cài cái addin đúng ko bác?

 

[gameonly308]

Qua máy khác phải đăng ký cái OCX MS MonthView 6.0 (MSCOMCT2.OCX) mới chạy được Date picker nhé.
Tốt nhất là bạn kiếm cái Calendar nào tự tạo bằng userform thay thế Date Picker để khỏi rắc rối vụ cài OCX chưa kể nó không tương thích với win 64 bit nữa đó.
Bạn xem link về lịch tự tạo của bạn Hoàng Trọng Nghĩa: https://www.giaiphapexcel.com/diendan/threads/tặng-tiện-ích-calendar-phiên-bản-cuối-cùng-excel-2007-trở-về-sau.109429/

Chào bác, em có vấn đề mới, bác xem có phương án nào hướng dẫn e với!

[Xin giúp đỡ] Tìm dữ liệu tương ứng trên cột và chuyển sang dạng hàng

Em có dữ liệu các xe với Số ngăn và Lượng xuất tương ứng với từng ngăn tại Buồng xuất tương ứng trên Sheet1. Các bác xem có code nào quét giúp em chuyển nó sang dạng hàng bên Sheet2 được không ạ?. Các xe có số ngăn bất kỳ, lúc 2 ngăn, lúc 3 ngăn, lúc 4 ngăn không cố định. Chỉ có Lượng xuất cố...

www.giaiphapexcel.com