Como redefinir todas as posições de comentários no Excel?

Em uma planilha que contém vários comentários, às vezes precisamos ajustar ou mover a posição da caixa de comentário para visualizar o conteúdo da célula atrás da caixa de comentário. Nesse caso, as caixas de comentário serão movidas para diferentes posições. Após concluir a operação, você precisa retornar as caixas de comentário à sua posição original. Como redefinir todas as posições de comentários de uma vez no Excel?

Redefinir todas as posições das caixas de comentário com código VBA no Excel
Um clique para redefinir todas as posições das caixas de comentário com Kutools para Excel

Redefinir todas as posições das caixas de comentário com código VBA no Excel

Você pode aplicar o seguinte código VBA para restaurar todas as caixas de comentário para suas posições originais de uma só vez.

1. Pressione e segure as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Redefinir todas as posições de comentários na planilha ativa

Sub ResetComments()
'Update 20141110
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

3. Em seguida, pressione a tecla F5 para executar este código, e todas as posições dos comentários na planilha ativa serão redefinidas de uma só vez. Veja as capturas de tela:

Redefinir todas as posições das caixas de comentário com apenas um clique

Aqui apresentamos o utilitário Redefinir Posição do Comentário do Kutools para Excel. Com esse utilitário, você pode redefinir rapidamente todas as posições de comentários na planilha ativa ou em todas as planilhas com apenas um clique.

1. Se você deseja redefinir todas as posições das caixas de comentário apenas na planilha ativa, clique em Kutools > Mais > Redefinir Posição do Comentário > Planilha Ativa.

Para redefinir todas as posições das caixas de comentário em todas as planilhas da pasta de trabalho atual, clique em Kutools > Mais > Redefinir Posição do Comentário > Todas as Planilhas. Veja a captura de tela:

Após clicar em Planilha Ativa ou Todas as Planilhas, todas as posições de comentários na planilha ativa ou em todas as planilhas serão redefinidas para suas posições originais imediatamente.

Demonstração: Um clique para redefinir todas as posições das caixas de comentário com Kutools para Excel

Artigos relacionados:

• Como alterar a cor do indicador de comentário no Excel?
• Como destacar todas as células com comentários no Excel?
• Como adicionar automaticamente data e hora ao comentário no Excel?