Excel 自动调整评论框的大小以适应其内容

你有没有想过，在Excel中是否有办法自动调整评论框的大小以适应其内容？这只有使用VBA应用程序才能实现。使用VBA代码，我们可以自定义工作表，使评论框的大小自动适应Excel中的内容。本教程将帮助你了解我们如何在Excel中自动调整评论框的大小以适应其内容。

自动调整评论框的大小以适应Excel中的内容

在这里，我们将首先创建一个VBA模块，然后运行它来完成我们的任务。让我们看看一个简单的过程，了解我们如何使用VBA应用程序自动调整评论框的大小以适应其内容。

第1步

考虑一个Excel工作表，整个工作表至少有一个注释，如图所示。

现在打开VBA应用程序，点击 “插入”，选择 “模块”，并在文本框中输入方案，如下图所示。

示例 1

Sub Comments()
'Update By Nirmal
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
   xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

第2步

现在将文档保存为支持宏的工作表，点击F5运行代码，注释将被调整，如下图所示。

如果你只想在一个单元格范围内自动调整注释的大小，那么我们可以在VBA应用程序中使用程序2。

示例 2

Sub Fitrangecomments()
'Update By Nirmal
Dim rng As Range
Dim WorkRng As Range
xTitleId = "Select the range"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
   If Not rng.Comment Is Nothing Then
      rng.Comment.Shape.TextFrame.AutoSize = True
   End If
Next
End Sub

注意 – 上述代码只对现有的评论框起作用，对新增加的评论框不起作用。

结论

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