如何在 Excel 中自动调整注释框大小以适应其内容?

ms excelmicrosoft technologiescomputers更新于 2024/10/6 13:00:17

您是否想过，在 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