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

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

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

---

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

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

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

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

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

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

---

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

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

1。 按 其他 + 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中的內容？