E có dùng code tìm được trên mạng chèn hình ảnh mà code không hoạt động mong mọi người giúp với ạ!

[Vo Duy Minh]

Tôi gửi file để tiện cho bạn.
Bạn cần tạo một thư mục trong ổ D với tên "Insert Photos" (nếu tên khác thì bạn phải đổi tên trong code cũng như nếu ổ khác thì cũng phải đổi tên trong code) và đưa vào những hình bạn muốn hiển thị trong file. Đặt tên các hình từ Photo 001 trở lên (nếu đặt tên khác thì cũng phải đổi tên trong cột A mã hình.
Bạn vào sheet 2 bấm vào Icon Insert thì sẽ gắn hình vào (kích cỡ hình có thể chỉnh theo ý trong code với ShapeRange.Height và ShapeRange.Width. Icon thùng rác để delete các hình đã insert
Bạn vào sheet 3 thì chỉnh mã hình ở cell A2 thì hình hiển thị sẽ thay đổi theo mã hình.

Code chèn hình này trước đây tôi được bạn "Batman1" hỗ trợ, nay tôi hỗ trợ lại cho bạn.

Mong đáp ứng được yêu cầu của bạn

 

[Maika8008]

...

Code chèn hình này trước đây tôi được bạn "Batman1" hỗ trợ, nay tôi hỗ trợ lại cho bạn.

Mong đáp ứng được yêu cầu của bạn

Đó là người mà các bài #17, #18, #19 nhắc đến đấy.