如何更改评论框的默认大小

Question

每次发表评论都要调整框的大小，真是令人沮丧。有人知道快捷方式吗，或者可以提供一些线索，让我可以编写这个脚本吗？

Answer 1

我使用这个 VBA 宏在必要时批量调整注释大小。据我所知，您无法更改注释框的默认大小。

我使用该Worksheet_SelectionChange事件来自动触发调整大小的宏，但当涉及到排序/移动大范围时，这是一个糟糕的想法。

Sub AutoFitComments()
    Application.ScreenUpdating = False
    For Each MyComment In ActiveSheet.Comments
        With MyComment
            .Shape.TextFrame.AutoSize = True
            .Shape.Top = .Parent.Top + 3
            .Shape.Left = .Parent.Offset(0, 1).Left + 3
            .Shape.Placement = xlMove
        End With
    Next
    Application.ScreenUpdating = True
End Sub

将代码插入工作簿的 VBA 编辑器中。按Alt+ F8» Enter快速运行宏。