Bỏ qua nội dung chính

Làm thế nào để sao chép hình ảnh từ trang tính sang biểu mẫu người dùng trong Excel?

Bài viết này sẽ chỉ cho bạn các phương pháp sao chép hình ảnh từ trang tính đang hoạt động sang Biểu mẫu người dùng trong Excel.

Sao chép hình ảnh từ trang tính sang Biểu mẫu người dùng bằng cách sao chép và dán
Sao chép hình ảnh từ trang tính sang Biểu mẫu người dùng với mã VBA


Sao chép hình ảnh từ trang tính sang Biểu mẫu người dùng bằng cách sao chép và dán

Vui lòng làm như sau để sao chép hình ảnh từ trang tính sang Biểu mẫu người dùng.

1. Chuyển sang trang tính có chứa hình ảnh bạn cần sao chép vào Biểu mẫu người dùng, rồi nhấn Khác + F11 chìa khóa với nhau để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng nhấp vào Chèn > Biểu mẫu người dùng. Xem ảnh chụp màn hình:

3. Bây giờ hãy chèn một Image Control vào UserForm. Vui lòng nhấp vào Hình ảnh nút trong Hộp công cụ hộp thoại, sau đó vẽ Điều khiển Hình ảnh vào Biểu mẫu người dùng thủ công. Xem ảnh chụp màn hình:

4. Nhấp chuột phải vào điều khiển Hình ảnh được chèn và nhấp vào Bất động sản từ menu ngữ cảnh như ảnh chụp màn hình bên dưới:

5. Sau đó, bạn có thể thấy một Bất động sản ngăn hiển thị ở bên trái của Microsoft Visual Basic cho các ứng dụng cửa sổ.

6. Quay lại trang tính và chọn ảnh bạn muốn hiển thị trong Biểu mẫu người dùng, sau đó sao chép ảnh bằng cách nhấn Ctrl + C phím.

7. Đi vào Microsoft Visual Basic cho các ứng dụng một lần nữa, cuộn xuống để nhấp vào Hình ảnh và sau đó dán tên ảnh đã sao chép vào nó trong tab Bảng chữ cái.

Bây giờ hình ảnh trong trang tính được sao chép vào Biểu mẫu người dùng.


Sao chép hình ảnh từ trang tính sang Biểu mẫu người dùng với mã VBA

Phần này sẽ chỉ cho bạn một giải pháp khác để sao chép nhiều ảnh từ trang tính sang Biểu mẫu người dùng, rồi hiển thị ảnh tương ứng trong Biểu mẫu người dùng bằng cách chọn tên ảnh từ hộp Tổ hợp. Hãy làm như sau.

1. Vui lòng làm theo bước 1 và 2 ở trên để chèn Userform vào trang tính của bạn.

2. Sau đó, chèn một Kiểm soát khung hình vào UserFrom như ảnh chụp màn hình dưới đây:

3. Nhấp chuột phải vào Khung được chèn và chọn Bất động sản từ menu ngữ cảnh. Ở bên trái Bất động sản ngăn, vui lòng chọn Sai từ Có thể nhìn thấy cánh đồng. Xem ảnh chụp màn hình:

4. Chèn nhiều điều khiển Hình ảnh vào Khung như hình minh họa bên dưới.

5. Quay lại trang tính và chọn ảnh bạn muốn hiển thị trong Biểu mẫu người dùng, và nhấn Ctrl + C phím để sao chép nó.

6. Đi vào Microsoft Visual Basic cho các ứng dụng , bấm chuột phải vào điều khiển Hình ảnh đầu tiên và chọn Bất động sản từ menu chuột phải. Xem ảnh chụp màn hình được hiển thị.

7. bên trong Bất động sản , vui lòng nhấp vào Hình ảnh trường, sau đó nhấn Ctrl + V các phím để dán ảnh bạn đã sao chép ở bước 5, rồi chọn 1 - fmPictureSizeModeStrtch từ PictureSizeChế độ danh sách thả xuống như ảnh chụp màn hình bên dưới.

8. Lặp lại bước 5 - 7 để dán các ảnh khác từ trang tính sang bên trái Điều khiển hình ảnh trong UserForm. Và kết quả sẽ hiển thị như ảnh chụp màn hình bên dưới.

9. Di chuyển Khung hình kiểm soát đến góc của UserForm, sau đó chèn một Hình ảnh kiểm soát và một Hộp kết hợp kiểm soát vào UserForm. Xem ảnh chụp màn hình:

10. Nhấp chuột phải vào Biểu mẫu người dùng, Và sau đó nhấp vào Mã Chế độ xem. Sau đó sao chép và dán mã VBA bên dưới để thay thế mã gốc vào cửa sổ Mã.

VBA code1: Sao chép hình ảnh từ trang tính sang Biểu mẫu người dùng

Private Sub ComboBox1_Change()
    UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
    Dim xImg As Control
    On Error Resume Next
    For Each xImg In UserForm1.Controls
        If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
            UserForm1.ComboBox1.AddItem xImg.Name
        End If
    Next
End Sub

Chú thích: Trong mã, Người dùngForm1 là tên của UserForm được chèn, Image4 là tên của điều khiển Hình ảnh mà bạn sẽ hiển thị hình ảnh bên trong. Và Hình ảnh đại diện cho tất cả các điều khiển Hình ảnh có chứa ảnh bạn đã sao chép từ trang tính. ComboBox1 là tên combobox bạn đã chèn vào biểu mẫu người dùng. Vui lòng thay đổi chúng thành của riêng bạn.

11. Đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

12. Chèn một nút Command vào trang tính bằng cách nhấp vào Nhà phát triển > Chèn > Nút lệnh (Điều khiển ActiveX).

13. Nhấp chuột phải vào nút lệnh và chọn Mã Chế độ xem từ menu Ngữ cảnh. Và sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Mã. Và cuối cùng đóng cửa sổ.

VBA code2: Sao chép hình ảnh từ trang tính sang Biểu mẫu người dùng

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. nhấp chuột Nhà phát triển > Chế độ thiết kế để tắt Chế độ thiết kế.

Từ bây giờ, khi nhấp vào nút lệnh, UserForm sẽ bật lên. Bạn có thể hiển thị hình ảnh bằng cách chọn tên hình ảnh từ hộp kết hợp. Xem ảnh chụp màn hình:

Chọn các tên khác nhau từ hộp kết hợp sẽ hiển thị các ảnh khác nhau trong UserForm.


Bài viết liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I'm having difficulties, can someone explain the code for me?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations