Как изменить размер по умолчанию для полей для комментариев

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 для быстрого запуска макроса.