如何自動調整文本框的大小以適合Excel中的內容？

文本框的大小在將其插入工作表后已固定。 因此，大小將無法調整以適合您插入或刪除的文本。 本文旨在向您展示自動調整文本框大小以適合Excel中內容的方法。

通過調整形狀以適合文本功能來自動調整文本框的大小以適合內容

通過VBA代碼自動調整所有文本框的大小以適合內容通過調整形狀以適合文本功能來自動調整文本框的大小以適合內容驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

您可以按如下方式更改文本框的屬性，以使其自動根據您輸入或刪除的文本調整大小。

1.插入文本框后，右鍵單擊文本框的邊框，然后單擊“確定”。 大小和屬性 從右鍵單擊菜單中。 看截圖：

2.您可以看到一個 格式形狀 窗格顯示在工作表的右側 大小和屬性 選項卡，檢查 調整形狀大小以適應文字 框 文本框 部分，然后關閉 格式形狀 窗格。 看截圖：

從現在開始，文本框將自動調整大小以適應內容。

備注：使用此方法時，如果要更改多個文本框，則需要一個一個地更改文本框的屬性。

通過VBA代碼自動調整所有文本框的大小以適合內容

對于已經有多個文本框的工作表，下面的VBA代碼可以幫助您自動調整它們的大小以一次適應內容。

1。 按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊。 然后將下面的VBA代碼復制并粘貼到“模塊”窗口中。

VBA代碼：自動調整所有文本框的大小以適合工作表中的內容

Sub TextBoxResizeTB()Dim xShape As ShapeDim xSht As WorksheetOn Error Resume NextFor Each xSht In ActiveWorkbook.WorksheetsFor Each xShape In xSht.ShapesIf xShape.Type = 17 ThenxShape.Textframe2.AutoSize = msoAutoSizeShapeToFitTextxShape.Textframe2.WordWrap = TrueEnd IfNextNextEnd SubCopy

3。 按 F5 鍵來運行代碼。 然后，您可以看到當前工作表中的所有文本框都會自動調整大小以適合其內容，如下圖所示。

這些文本框將隨著您輸入或將來使用的內容自動調整大小。

相關文章:如何自動調整注釋框的大小以適合Excel中的內容？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel