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

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

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

在这里，我们将首先插入一个VBA模块，然后运行它来完成我们的任务。让我们看看一个毫不费力的过程，了解我们如何自动调整文本框的大小以适应Excel中的内容。

第1步

让我们考虑一个excel表，其中包含文本框，如下面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中自动调整一个文本框的大小以适应其内容。