Bỏ qua nội dung chính

Làm cách nào để chèn nhiều ảnh và thay đổi kích thước chúng cùng một lúc trong Excel?

Chúng ta có thể dễ dàng chèn một ảnh vào Excel, nhưng nếu bạn cần chèn nhiều ảnh cùng một lúc để có thể tiết kiệm nhiều thời gian, bạn có thể làm thế nào?


Chèn nhiều ảnh và thay đổi kích thước hàng loạt bằng tính năng Chèn ảnh

Chúng ta có thể chèn hàng loạt ảnh bằng tính năng (Chèn) Ảnh trong Excel, rồi thay đổi kích thước chúng đồng thời. Vui lòng làm như sau:

1. Trong trang tính, hãy nhấp vào Chèn > Hình ảnh.

2. Trong hộp thoại Chèn ảnh, vui lòng mở thư mục chứa ảnh bạn sẽ chèn, chọn nhiều ảnh nếu bạn cần và nhấp vào Chèn cái nút. Xem ảnh chụp màn hình:
Chú thích: Giữ Ctrl chính, bạn có thể chọn nhiều hình ảnh không liền kề bằng cách nhấp vào chúng từng cái một; giữ sự thay đổi , bạn có thể chọn nhiều hình ảnh liền kề bằng cách nhấp vào hình ảnh đầu tiên và hình ảnh cuối cùng.

Bây giờ hình ảnh được chèn hàng loạt và xếp chồng trong trang tính.

3. Giữ những ảnh này được chọn và thay đổi kích thước hàng loạt bằng cách nhập số mới vào cả hai Chiều rộngChiều cao hộp trong Kích thước máy nhóm trên Định dạng chuyển hướng. Xem ảnh chụp màn hình:

Bây giờ tất cả các hình ảnh đã chèn sẽ được thay đổi cùng một kích thước cùng một lúc.

4. Hiện tại, bạn cần phải di chuyển từng bức tranh riêng biệt đến một vị trí vừa vặn theo cách thủ công.

Chú thích: Nếu có hàng chục bức tranh xếp chồng lên nhau, bạn sẽ khá mất thời gian để tự di chuyển chúng cho vừa chỗ.

Chèn hàng loạt nhiều ảnh phù hợp với nội dung ô trong Excel

Sản phẩm Khớp nhập ảnh tính năng của Kutools cho Excel, là một công cụ tuyệt vời có thể nhập hàng loạt và chèn nhiều hình ảnh dựa trên nội dung ô và thay đổi kích thước hình ảnh đã nhập giống như kích thước ô hoặc thành kích thước được chỉ định một cách dễ dàng.


kết hợp quảng cáo các bức ảnh đã nhập 01

Kutools cho Excel - Supercharge Excel với hơn 300 công cụ thiết yếu. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Get It Now

Chèn nhiều ảnh và thay đổi kích thước hàng loạt với OneNote

Để tránh di chuyển từng ảnh xếp chồng lên nhau, phương pháp này giới thiệu một thủ thuật khác để chèn nhiều ảnh với sự trợ giúp của OneNote. Vui lòng làm như sau:

1. Khởi chạy OneNote và tạo một trang mới. Và sau đó nhấp vào Chèn > Hình ảnh.

2. Trong hộp thoại Chèn ảnh, vui lòng mở thư mục chứa ảnh bạn sẽ chèn, chọn nhiều ảnh nếu bạn cần và nhấp vào Chèn cái nút. Xem ảnh chụp màn hình:
Chú thích: Giữ Ctrl chính, bạn có thể chọn nhiều hình ảnh không liền kề bằng cách nhấp vào chúng từng cái một; giữ sự thay đổi , bạn có thể chọn nhiều hình ảnh liền kề bằng cách nhấp vào hình ảnh đầu tiên và hình ảnh cuối cùng.

doc chèn nhiều hình ảnh OneNote 032

3. nhấn Ctrl + A các phím để chọn tất cả ảnh đã chèn trong OneNote, sau đó bấm Ctrl + C phím để sao chép chúng.

4. Truy cập trang tính trong Excel và nhấn Ctrl + V các phím để dán ảnh vào trang tính. Bây giờ tất cả các hình ảnh được dán theo chiều dọc như ảnh chụp màn hình bên trái.

5. Chọn bất kỳ một trong các hình ảnh và nhấn Ctrl + A phím để chọn tất cả chúng. Sau đó, thay đổi kích thước hình ảnh hàng loạt bằng cách nhập các số mới vào cả hai Chiều rộngChiều cao hộp trong Kích thước máy nhóm trên Định dạng chuyển hướng. Xem ảnh chụp màn hình:

Giờ đây, tất cả các hình ảnh được chỉ định đều được chèn vào Excel và thay đổi kích thước hàng loạt thành cùng một kích thước.


Chèn nhiều ảnh vào Excel với mã VBA

Với mã VBA sau, bạn có thể chèn nhiều ảnh vào từng ô trong tệp Excel.

1. Chọn ô đầu tiên của dải ô đích mà bạn muốn chèn ảnh.

2. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Sau đó nhấn F5 phím để chạy mã này.

5. Trong hộp thoại Mở, vui lòng mở thư mục chứa ảnh bạn muốn chèn, chọn nhiều ảnh bạn sẽ chèn và nhấp vào Mở cái nút. Và tất cả các hình ảnh đã chọn đã được nhập vào lựa chọn của bạn dựa trên kích thước ô. Xem ảnh chụp màn hình:


Chèn nhiều hình ảnh và tự động điều chỉnh chúng với Kutools cho Excel

Kutools cho Excel'S Nhập ảnh tiện ích có thể giúp bạn nhanh chóng chèn nhiều ảnh vào Excel dựa trên kích thước ô hoặc kích thước ảnh. Bạn cũng có thể chỉ định chiều cao và chiều rộng của hình ảnh khi bạn cần.

Kutools cho Excel - Supercharge Excel với hơn 300 công cụ thiết yếu. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Get It Now

1. Nhấp chuột Kutools Plus > Nhập khẩu xuất khẩu > Nhập ảnh, xem ảnh chụp màn hình:

2. Trong Nhập ảnh hộp thoại, vui lòng làm như sau:
(1) Chỉ định thứ tự hiển thị của ảnh từ Nhập đơn hàng danh sách thả xuống, bạn có thể chọn Điền vào ô theo chiều dọc sau ô or Điền vào ô theo chiều ngang sau ô.
(2) Nhấp vào Thêm để chọn tệp ảnh hoặc thư mục để thêm ảnh vào danh sách Ảnh. Và tất cả hình ảnh bạn đã chọn sẽ được liệt kê trong hộp danh sách.
(3) Nhấp vào Nhập kích thước Nút;

3. Bây giờ trong Nhập kích thước hình ảnh , bạn có thể chọn kích thước hình ảnh phù hợp với nhu cầu của bạn. Xem ảnh chụp màn hình:

4. Sau khi xác định kích thước hình ảnh, vui lòng nhấp vào OK để đóng hộp thoại này và quay lại Nhập ảnh thoại, bấm Nhập khẩu để nhập hình ảnh.

5. Trong hộp thoại Nhập ảnh mới, vui lòng chọn ô đầu tiên của dải ô đích mà bạn sẽ chèn ảnh và nhấp vào OK .

Hiện tại, tất cả các ảnh đã chọn của bạn đã được chèn vào các ô của bạn từ ô hiện hoạt theo chiều dọc hoặc chiều ngang. Xem ảnh chụp màn hình bên phải:

Sản phẩm Nhập ảnh tính năng của Kutools cho Excel được thiết kế để chèn một loạt ảnh đồng thời với kích thước ô phù hợp, kích thước được chỉ định hoặc kích thước riêng của ảnh trong Excel. Có một bản dùng thử miễn phí!


Chèn nhiều hình ảnh phù hợp với tên của chúng bằng Kutools cho Excel

Kutools cho Excel cũng hỗ trợ một kịch bản Khớp nhập ảnh tính năng để khớp ảnh và nội dung ô và chỉ chèn hàng loạt ảnh đã khớp trong Excel.

Kutools cho Excel - Supercharge Excel với hơn 300 công cụ thiết yếu. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Get It Now

1. Chọn các ô tên ảnh mà bạn muốn chèn các ảnh phù hợp của chúng và nhấp vào Kutools Plus > Nhập khẩu xuất khẩu > Khớp nhập ảnh. xem ảnh chụp màn hình:

2. Trong hộp thoại Match Import Pictures hiện ra, vui lòng thực hiện như sau:
(1) Chỉ định thứ tự hiển thị của ảnh từ Nhập đơn hàng danh sách thả xuống;
(2) Nhấp vào Thêm để thêm ảnh vào hộp danh sách ảnh. Đối với thông tin của bạn, chỉ những hình ảnh phù hợp sẽ được liệt kê ra.
(3) Sau đó nhấp vào Kích thước nhập khẩu .

3. Bây giờ trong Nhập kích thước hình ảnh , bạn có thể chọn kích thước hình ảnh phù hợp với nhu cầu của mình và nhấp vào Ok cái nút. Xem ảnh chụp màn hình:

4. Bây giờ bạn trở lại Nhập ảnh thoại, bấm Nhập khẩu để nhập hình ảnh.

5. Trong hộp thoại Match Import Pictures xuất hiện, vui lòng chỉ định ô đầu tiên của dải ô đích mà bạn sẽ chèn ảnh và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Cho đến nay, tất cả các hình ảnh được chèn vào các ô dựa trên tên họ hàng của chúng. Xem ảnh chụp màn hình bên phải:

Sản phẩm Khớp nhập ảnh tính năng của Kutools cho Excel có thể giúp người dùng Excel nhanh chóng lọc ảnh dựa trên các giá trị ô và sau đó chèn những ảnh này hàng loạt. Ngoài ra, những hình ảnh phù hợp này có thể được tự động thay đổi kích thước thành kích thước được chỉ định hoặc kích thước ô. Có một bản dùng thử miễn phí!


Demo: Chèn nhiều ảnh và thay đổi kích thước chúng cùng một lúc trong Excel

Kutools cho Excel bao gồm hơn 300 công cụ tiện dụng cho Excel, miễn phí dùng thử không giới hạn trong 30 ngày. Dùng thử miễn phí ngay!      Mua ngay!


Các bài 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 (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello community,

Thank you very much - this is a great tool!
But for my request, I should keep the sizes of the images, which are different. Is there any way to keep the format of the images but keep the functions with this code?

Many thanks in advance.
Elias
This comment was minimized by the moderator on the site
Respected sir, i want to One image paste on specific cell more than one in a time.
This comment was minimized by the moderator on the site
Hello, Sarfraz

If you want to insert one image into multiple cells, you just need to insert one image and resize it, and then copy and paste it to the other cells as you need.

Thank you!
This comment was minimized by the moderator on the site
mình cảm ơn vì bài viết. mình có làm danh sách sản phẩm hàng hóa mất rất nhiều thời gian nhưng chợt thấy chenanhexcel.com có bán add-in thì công việc của mình dễ dàng hơn nhiều.
This comment was minimized by the moderator on the site
Hi, i have 10 images i want to insert all 10 inside ONE CELL in excel. is this possible and if so pls help me out with some code pls...
This comment was minimized by the moderator on the site
Hi Vind,
First, adjust the cell and make it big enough to contain the 10 images.
Then Click Insert > Picture to open the Insert Picture dialog. In the dialog, select the 10 images together (if they are in the same folder), and click the OK button.
Now all images are inserted. If necessary, resize them simultaneously in the Size group on the Picture Format tab.
These images are inserted in the diagonal line of the cell as attached picture, and you need to adjust their positions manually.
This comment was minimized by the moderator on the site
I am using the following code, which came from Funzone, to add my photos but i need to be able to skip a column, leaving a blank column between photos, can someone help?

Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 2
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I was finally able to figure it out on my own.

The code below will insert 3 pictures horizontally in the columns then move down a row and insert 3 more horizontally it will repeat this process until it runs out of the selected pictures.



Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 1
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?


If you know how to do this please post the code. Thank you In advance!

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array.
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array
This comment was minimized by the moderator on the site
les agradezco mucho realmente ayudan muchisimo con el trabajo y el tiempo. Me sirvio perfecto para un inventario con fotos.
reitero mi agradecimiento
This comment was minimized by the moderator on the site
Tried this code and in all honesty is amazing and fast, however is there any chance of amending this to make it resize the pictures to a custom size.
I cannot seem to get my head around it.
Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations