Làm cách nào để tự động thay đổi kích thước hộp văn bản để phù hợp với nội dung trong Excel?
Kích thước hộp văn bản được cố định sau khi chèn nó vào trang tính. Vì vậy, kích thước sẽ không điều chỉnh để phù hợp với văn bản bạn đã chèn hoặc xóa. Bài viết này nhằm mục đích chỉ cho bạn các phương pháp tự động thay đổi kích thước hộp văn bản để phù hợp với nội dung trong Excel.
Tự động thay đổi kích thước hộp văn bản để phù hợp với nội dung bằng cách thay đổi kích thước hình dạng để vừa với đối tượng văn bản
Tự động thay đổi kích thước tất cả các hộp văn bản để phù hợp với nội dung bằng mã VBA
Tự động thay đổi kích thước hộp văn bản để phù hợp với nội dung bằng cách thay đổi kích thước hình dạng để vừa với đối tượng văn bản
Bạn có thể thay đổi thuộc tính của hộp văn bản như sau để làm cho nó tự động thay đổi kích thước với văn bản bạn đã nhập hoặc xóa.
1. Sau khi chèn hộp văn bản, hãy bấm chuột phải vào đường viền của hộp văn bản, rồi bấm Kích thước và thuộc tính từ menu chuột phải. Xem ảnh chụp màn hình:
2. Bạn có thể thấy một Định dạng hình dạng ngăn được hiển thị ở bên phải của trang tính, bên dưới Kích thước và thuộc tính 
tab, kiểm tra Thay đổi kích thước để phù hợp với văn bản hộp trong Text Box và sau đó đóng Định dạng hình dạng ngăn. Xem ảnh chụp màn hình:
Từ bây giờ, hộp văn bản sẽ tự động thay đổi kích thước để phù hợp với nội dung.
Chú thích: Với phương pháp này, nếu có nhiều hộp văn bản cần thay đổi, bạn cần thay đổi từng thuộc tính của các hộp văn bản.
Tự động thay đổi kích thước tất cả các hộp văn bản để phù hợp với nội dung bằng mã VBA
Đối với trang tính đã có nhiều hộp văn bản, mã VBA sau có thể giúp bạn tự động thay đổi kích thước chúng để phù hợp với nội dung cùng một lúc.
1. nhấn Khác + F11 các phím đồng thời để 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ổ, nhấp Chèn > Mô-đun. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Mô-đun.
Mã VBA: Tự động thay đổi kích thước tất cả các hộp văn bản để phù hợp với nội dung trong trang tính
Sub TextBoxResizeTB()
Dim xShape As Shape
Dim xSht As Worksheet
On Error Resume Next
For Each xSht In ActiveWorkbook.Worksheets
For Each xShape In xSht.Shapes
If xShape.Type = 17 Then
xShape.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
xShape.TextFrame2.WordWrap = True
End If
Next
Next
End Sub3. Nhấn nút F5 phím để chạy mã. Sau đó, bạn có thể thấy tất cả các hộp văn bản trong trang tính hiện tại được tự động thay đổi kích thước để phù hợp với nội dung của nó như hình minh họa bên dưới.
Và các hộp văn bản này sẽ tự động thay đổi kích thước với nội dung bạn nhập hoặc xóa trong lần sử dụng sau.
Bài viết liên quan:
Công cụ năng suất văn phòng tốt nhất
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...
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!
