如何自动调整文本框的大小以适合Excel中的内容？

文本框的大小在将其插入工作表后已固定。 因此，大小将无法调整以适合您插入或删除的文本。 本文旨在向您展示自动调整文本框大小以适合Excel中内容的方法。

通过调整形状以适合文本功能来自动调整文本框的大小以适合内容
通过VBA代码自动调整所有文本框的大小以适合内容

---

通过调整形状以适合文本功能来自动调整文本框的大小以适合内容

您可以按如下方式更改文本框的属性，以使其自动根据您输入或删除的文本调整大小。

1.插入文本框后，右键单击文本框的边框，然后单击“确定”。 大小和属性 从右键单击菜单中。 看截图：

2.您可以看到一个 格式形状 窗格显示在工作表的右侧 大小和属性 选项卡，检查 调整形状大小以适应文字 框 文本框 部分，然后关闭 格式形状 窗格。 看截图：

从现在开始，文本框将自动调整大小以适应内容。

备注：使用此方法时，如果要更改多个文本框，则需要一个一个地更改文本框的属性。

---

通过VBA代码自动调整所有文本框的大小以适合内容

对于已经有多个文本框的工作表，下面的VBA代码可以帮助您自动调整它们的大小以一次适应内容。

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2。 在里面 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将下面的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中的内容？