如何在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中自动调整批注框大小以适应其内容？