如何在 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