excel - 自动调整单元格注释大小的 VBA 代码

Question

当人们在 Excel (2016) 中添加单元格注释时，注释框的大小是出了名的次优，需要手动调整。我定义了这个宏(使用从 here 获得的 VBA 代码)来自动调整鼠标悬停在单元格上方时出现的单元格注释的大小:

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

但是，我希望这个宏改为:

不仅在一行上调整评论框的大小，而且在多行上调整评论框的大小
线，优化矩形的纵横比(谷歌的方式
Spreadhsets 自动调整任何单元格注释框的大小，第二个
它被创建)

不对工作表中的所有单元格评论采取行动，而仅对
根据当前单元格的评论

但是，我对 VBA 没有真正的了解。谁能指出我必须对代码进行哪些更改？谢谢!

Answer 1

Sub FitComments()
Dim Rng As Range
Dim Cell As Range
Set Rng = Selection
For Each Cell In Rng
    If Not Cell.Comment Is Nothing Then
    Cell.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

Excel 2016 在我当前的位置无法测试上述内容，否则我会在发布之前这样做。我正在运行 Office 365，它会按照您的描述自动调整大小。测试了多个版本，直到宏没有错误。

此代码背后的概念是在每个单元格的基础上将自动调整大小应用于选择中的注释。

我将宏应用于 Control +(选择字母)键盘激活以快速访问。

逐行进入代码，它运行了测试选择的预期步骤数。