如何在Excel中自動調整文字框大小以適應內容？

在工作表中插入文字框後，其大小是固定的。因此，文字框的大小不會根據您插入或刪除的文字進行調整。本文將向您展示在Excel中自動調整文字框大小以適應內容的方法。

通過「調整形狀以適應文字」功能自動調整文字框大小以適應內容
使用VBA代碼自動調整所有文字框大小以適應內容

通過「調整形狀以適應文字」功能自動調整文字框大小以適應內容

您可以按照以下方式更改文字框屬性，使其在您輸入或刪除文字時自動調整大小。

1. 插入文字框後，右鍵單擊文字框的邊框，然後從右鍵菜單中選擇「大小和屬性」。請參見截圖：

2. 您可以看到一個 設定形狀格式 窗格顯示在工作表的右側，在 大小和屬性 標籤下，勾選 調整形狀以適應文字 方框，位於 文字框 部分，然後關閉 設定形狀格式 窗格。請參見截圖：

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

備註：使用此方法時，如果有許多文字框需要更改，則需要逐一更改這些文字框的屬性。

使用VBA代碼自動調整所有文字框大小以適應內容

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

1. 同時按下 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，點擊 插入 > 模組。然後複製並將以下VBA代碼粘貼到模組窗口中。

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

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 Sub

3. 按下 F5 鍵運行代碼。然後您可以看到當前工作表中的所有文字框都已自動調整大小以適應其內容，如下方截圖所示。

並且在未來使用中，這些文字框會隨著您輸入或刪除的內容自動調整大小。

相關文章：

• 如何在Excel中自動調整批註框大小以適應其內容？