Como alterar o tamanho padrão das caixas de comentários

Question

É incrivelmente frustrante redimensionar a caixa toda vez que eu coloco um comentário. Alguém sabe o atalho, ou pode fornecer uma pista para que eu possa roteirizar isso?

    

Answer 1

Eu uso essa macro VBA para redimensionar em massa comentários quando necessário. Tanto quanto eu sei, você não pode alterar o tamanho padrão de caixas de comentários.

Eu joguei com o evento Worksheet_SelectionChange para ativar a macro de redimensionamento automaticamente, mas é uma péssima ideia quando se trata de classificar / mover grandes intervalos.

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

Insira o código no editor de VBA da sua pasta de trabalho. Pressione Alt + F8 » Digite para executar a macro rapidamente.