Bỏ qua nội dung chính

Làm cách nào để thay đổi kích thước nhiều ô để vừa với ảnh một cách nhanh chóng trong Excel?

Như chúng ta đã biết, Microsoft Excel hỗ trợ tự động thay đổi kích thước chiều cao hàng và chiều rộng cột của ô để phù hợp với nội dung đã điền, chẳng hạn như một chuỗi văn bản dài. Tuy nhiên, lệnh AutoFit Row Height và lệnh AutoFit column Width không hợp lệ với ảnh, vì ảnh được chèn không nằm trong một ô cụ thể.

Thay đổi kích thước ô để phù hợp với hình ảnh bằng VBA

Thay đổi kích thước hình ảnh để phù hợp với các ô với Kutools cho Excel ý kiến ​​hay3


Thay đổi kích thước ô để phù hợp với hình ảnh bằng VBA

Giả sử có hai hình ảnh lớn trong một trang tính, hãy xem ảnh chụp màn hình sau đây. Ai đó có thể muốn thay đổi kích thước ô để vừa với ảnh phía trên ô. Nhưng làm thế nào để nhận ra nó?

doc-thay đổi kích thước ô-to-fit-picture1

Tất nhiên, bạn có thể tự động thay đổi kích thước từng ô để vừa với các bức ảnh phía trên chúng. Tuy nhiên, nó có thể tẻ nhạt và tốn thời gian đối với một số bức tranh. Trên thực tế, chúng ta có thể áp dụng macro VB để thay đổi kích thước tất cả các ô cho vừa với hình ảnh phía trên chúng. Bạn có thể thực hiện theo các bước sau:

Bước 1: Giữ phím ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

Bước 2: Nhấp Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

VBA: Thay đổi kích thước nhiều ô để vừa với ảnh của chúng.

Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Sub

Bước 3: Nhấn F5 phím để chạy macro này.

Bây giờ trong trang tính hiện tại, nếu có ảnh, ô bên dưới ảnh sẽ được thay đổi kích thước để vừa với ảnh phía trên nó. Xem ảnh chụp màn hình sau:

doc-thay đổi kích thước ô-to-fit-picture2


Thay đổi kích thước hình ảnh để phù hợp với các ô với Kutools cho Excel

Nếu bạn đã điều chỉnh kích thước của các ô như hình minh họa bên dưới và sau đó bạn muốn nhập và thay đổi kích thước ảnh để phù hợp với kích thước ô, bạn có thể nhanh chóng hoàn thành việc đó bằng cách nào? Trong trường hợp này, Kutools cho Excel's Nhập khẩu Pictrues tiện ích có thể giúp bạn dễ dàng xử lý công việc này.
doc thay đổi kích thước hình ảnh phù hợp với ô 1

Kutools cho Excel, với hơn 120 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. 

Sau khi cài đặt Kutools cho Excel, vui lòng làm như dưới đây :(Tải xuống miễn phí Kutools cho Excel ngay!)

1. nhấp chuột Doanh nghiệp > Import / Export > Nhập ảnh. Xem ảnh chụp màn hình:
doc thay đổi kích thước hình ảnh phù hợp với ô 2

2. Trong popping Nhập ảnh , bạn có thể chỉ định thứ tự nhập trước tiên trong Nhập đơn hàng và sau đó nhấp vào Thêm để thêm ảnh từ thư mục hoặc từng tệp một, sau đó bạn có thể thấy ảnh được liệt kê trong Hình ảnh phần. Xem ảnh chụp màn hình:
doc thay đổi kích thước hình ảnh phù hợp với ô 3

3. Sau đó nhấn vào Nhập khẩu nút để hiển thị Nhập kích thước hình ảnh hộp thoại, sau đó kiểm tra Kích thước ô phù hợp Lựa chọn. Xem ảnh chụp màn hình:
doc thay đổi kích thước hình ảnh phù hợp với ô 4

4. nhấp chuột OK > Nhập khẩu để hiển thị hộp thoại để chọn các ô bạn muốn nhập ảnh. Xem ảnh chụp màn hình:
doc thay đổi kích thước hình ảnh phù hợp với ô 5

5. nhấp chuột OK, và bây giờ tất cả các đường cong được nhập vào các ô và thay đổi kích thước kích thước của chúng cho phù hợp với các ô.
doc thay đổi kích thước hình ảnh phù hợp với ô 6


Bài viết liên quan:
Làm cách nào để chèn nhiều ảnh vào ô trong Excel?

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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How did you get come up with the formula (Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288))? It's close but there is still a gap to the right as shown in your screenshot.
This comment was minimized by the moderator on the site
Great and all, but i already had pictures in cells and by using the first option it obliterated like 99% of all photos already present. None were spared except for one photo which was resized beautifully except that the width of the photo was a bit thin.
This comment was minimized by the moderator on the site
Hello Thank you for the macro. I cannot get to work in my computer though. I use Excel 2011 for Mac Any ideas? Thanks
This comment was minimized by the moderator on the site
Hi, great macro - small correction with greater OR EQUAL in the 16 row If Rows(N).Top >= PictureTop Then
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations