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

当我们在Excel中使用文本框时，您可能已经观察到手动调整文本框以适应内容是最耗时的过程之一，因为调整可能是一个较慢的过程。这可能会在进行Excel工作时浪费大量时间。本教程将帮助您了解如何在Excel中自动调整文本框大小以适应内容。我们可以借助VBA应用程序来完成，因为在Excel中默认情况下无法完成此操作。

在Excel中自动调整文本框大小以适应内容

在这里，我们首先将插入一个VBA模块，然后运行它以完成我们的任务。让我们看看如何以一种简单的方式自动调整文本框大小以适应Excel中的内容。

步骤1

让我们考虑一个包含文本框的Excel表格，如下图所示。我们可以通过在“插入”下面点击文本并绘制框的大小来插入文本框。

现在右键单击工作表名称并选择查看代码来打开vba应用程序，然后单击“插入”并选择模块，然后将程序输入到文本框中，如下图所示。

示例

Sub TextBoxResizeTB()
'Updated By Nirmal
   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

该代码仅适用于增加文本大小，而不会减少文本大小。

步骤2

现在将工作表另存为启用宏的工作簿，然后单击F5以运行模块并自动调整文本框大小，如下图所示。

结论

在本教程中，我们使用了一个简单的例子来演示如何在Excel中自动调整文本框大小以适应其内容。