Saltar al contenido principal

¿Cómo ajustar automáticamente el tamaño del cuadro de comentarios para que se ajuste a su contenido en Excel?

Cuando inserta comentarios en las celdas, el tamaño del cuadro de comentarios es el predeterminado. Si ingresa una gran cantidad de contenido, parte del contenido no será visible directamente. ¿Es posible ajustar el tamaño del cuadro de comentarios a su contenido automáticamente?

Cuadro de comentarios de tamaño automático para ajustar su contenido en una hoja de trabajo
Cuadro de comentarios de tamaño automático para ajustar su contenido en un rango de celdas
Cuadro de comentarios de tamaño automático fácilmente para ajustar su contenido en la hoja activa o en todas las hojas con una herramienta increíble


Cuadro de comentarios de tamaño automático para ajustar su contenido en una hoja de trabajo

En Excel, puede arrastrar el cuadro de comentarios al tamaño de su necesidad manualmente uno por uno, pero si hay numerosos cuadros de comentarios que deben redimensionarse, de esta manera será tedioso y llevará mucho tiempo. En este caso, puede aplicar el siguiente código VBA.

1. Mantenga presionado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

2. Hacer clic en recuadro > Móduloy pegue la siguiente macro en el Ventana del módulo.

Código de VBA: cuadros de comentarios de tamaño automático en una hoja de trabajo

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

3. Luego presione F5 clave para ejecutar este código, y todos los cuadros de comentarios en la hoja de trabajo activa se han redimensionado para ajustarse a su contenido como se muestra en la siguiente captura de pantalla:

doc tamaño automático comentario1

Consejo: Este código solo funciona en la hoja de trabajo actual y no puede cambiar automáticamente el tamaño de los nuevos cuadros de comentarios que agregue.


Un clic para ajustar rápidamente el tamaño del cuadro de comentarios a su contenido automáticamente en Excel:

La Comentario de ajuste automático utilidad de Kutools for Excel puede ayudar a ajustar rápidamente el tamaño del cuadro de comentarios a su contenido automáticamente en una hoja de trabajo, como se muestra en la siguiente demostración. ¡Descárgalo y pruébalo ahora! (Pista gratuita de 30 días)


Cuadro de comentarios de tamaño automático para ajustar su contenido en un rango de celdas

Si solo necesita ajustar automáticamente el tamaño de un rango de cuadros de comentarios de celda, puede usar el siguiente código VBA.

1. Mantenga presionado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

2. Hacer clic en recuadro > Móduloy pegue la siguiente macro en el Ventana del módulo.

Código de VBA: cuadros de comentarios de tamaño automático en un rango de celdas

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. Luego presione F5 para ejecutar este código, y aparecerá un cuadro de aviso para recordarle que seleccione un rango de celdas que desea cambiar el tamaño de los cuadros de comentarios, vea la captura de pantalla:

doc-cambiar tamaño-comentario-box3

4. Y luego haga clic en OK, los cuadros de comentarios de la celda seleccionada se han ajustado automáticamente al contenido del comentario.

Consejo: Este código no puede cambiar automáticamente el tamaño de los nuevos cuadros de comentarios que agregue.


Cuadro de comentarios de tamaño automático para ajustar su contenido en la hoja activa o en toda la hoja 

Puedes probar el Comentario de Autoajuste utilidad de Kutools for Excel para cambiar el tamaño de unTodos los cuadros de comentarios en la hoja activa o todas las hojas en Excel. Haz lo siguiente.

Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.

1. Para cambiar automáticamente el tamaño de los cuadros de comentarios para que se ajusten a su contenido en la hoja activa, haga clic en Kutools > Más > Comentario de Autoajuste > Hoja activa.

Y si desea cambiar automáticamente el tamaño de todos los cuadros de comentarios en todo el libro de trabajo, haga clic en Kutools > Más > Comentario de Autoajuste > Todas las hojas. Ver captura de pantalla:

Luego, todos los cuadros de comentarios se redimensionan automáticamente para adaptarse a su contenido. Ver captura de pantalla:

Notas:

  • 1. Después de cambiar automáticamente el tamaño de los cuadros de comentarios, cuando vuelva a editar el comentario, el cuadro de comentarios se expandirá o encogerá automáticamente con el contenido.
  • 2. Para los nuevos comentarios que ha insertado, debe volver a habilitar esta utilidad de comentario automático para cambiar el tamaño de todos los nuevos cuadros de comentarios insertados.

  Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Cuadro de comentarios de tamaño automático fácilmente para adaptarse a su contenido


Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I've been using an xls spreadsheet for 10+ years. Suddenly, all my note boxes were hugely expanded, showed as a blank note until I edited them. Your solution below worked to resize all of my note boxes to fit contents. But now when I try to resize the note box to add more text, Excel crashes. This is even after I saved as an xlsx file to remove all VB code. Can you help?

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub
This comment was minimized by the moderator on the site
Bom-dia,

Salvou de mais! Após abrir planilha no celular todos os comentários ficaram desajustados no pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
This comment was minimized by the moderator on the site
It doesn't work, the insert module does not show up
This comment was minimized by the moderator on the site
amazing! thank you, the first way works! saved me hours of work!
This comment was minimized by the moderator on the site
I guess Crystal got us off track the question was: Is there a way of making the line from the comment box to the cell darker or fatter? That would be the line surrounding the comment box. TIA DD
This comment was minimized by the moderator on the site
Is there a way of making the line from the comment box to the cell darker or fatter?
This comment was minimized by the moderator on the site
Hi Demondrew,
Sorry can help you for that.
This comment was minimized by the moderator on the site
Thank you so much for sharing this. Really helpful!
This comment was minimized by the moderator on the site
@DENNIE "While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks." // Agreed
This comment was minimized by the moderator on the site
Thank you very much. This really saved me from lots of hassles.
This comment was minimized by the moderator on the site
While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations