Note: The other languages of the website are Google-translated. Back to English

¿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:

Programas de 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! (30-día de ruta libre)


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ía) 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

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (18)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Gracias. Solución fácil y rápida para mi problema.
Este comentario fue minimizado por el moderador en el sitio
Usando su código 1. Dim xComment como comentario para cada xComment en Application.ActiveSheet.Comments xComment.Shape.TextFrame.AutoSize = True Next 2. Se produce un problema con este error 445 referencia de objeto With Range("A1").Comment.Shape. TextFrame2 .WordWrap = msoTrue .AutoSize = msoAutoSizeTextToFitShape Terminar con
Este comentario fue minimizado por el moderador en el sitio
No funcionó como el primer código que enviaste, solo se ajusta al contenido, lo que quiero es algo que hará que todos tengan el mismo ancho y la longitud se ajustará automáticamente al contenido, ya que así es como se ve la columna H en este momento y la columna A varía en el tamaño del ancho le gustaría que la columna A tuviera tres columnas de ancho y largo para ajustarse al contenido y crecer según sea necesario cuando presione ingresar el cuadro, la longitud debe crecer en una línea, ¿hay un código para eso? tenga en cuenta que probé tanto el código clave como la última página que envió.
Este comentario fue minimizado por el moderador en el sitio
esto no funcionó en absoluto. Recibí un error repetidamente.
Este comentario fue minimizado por el moderador en el sitio
Recibo un error: tiempo de ejecución '1004': el método AutoSize del objeto TextFrame falló
Este comentario fue minimizado por el moderador en el sitio
"Código VBA: cuadros de comentarios de tamaño automático en una hoja de trabajo" se ocupó de los comentarios de mi hoja de cálculo. ¡Muchas gracias!
Este comentario fue minimizado por el moderador en el sitio
¡Bueno! Resolvió mi problema.
Este comentario fue minimizado por el moderador en el sitio
Es realmente una buena y útil pieza de información. Me alegra que haya compartido esta información útil con nosotros. Por favor, manténganos actualizados de esta manera. Gracias por compartir. kdagekebeceddedded
Este comentario fue minimizado por el moderador en el sitio
Mientras el código funciona, hace que el cuadro tenga una línea de alto, lo que significa que los comentarios grandes desaparecen fuera de la página en alguna parte. ¿Podría proporcionar el código para fijar el ancho de cada cuadro (digamos tres anchos de columna estándar de Excel) y ajustar automáticamente la longitud del cuadro para que se ajuste al texto? Gracias.
Este comentario fue minimizado por el moderador en el sitio
Muchísimas gracias. Esto realmente me salvó de muchos problemas.
Este comentario fue minimizado por el moderador en el sitio
@DENNIE "Si bien el código funciona, hace que el cuadro tenga una línea de altura, lo que significa que los comentarios grandes desaparecen fuera de la página en alguna parte. ¿Podría proporcionar el código para corregir el ancho de cada cuadro (digamos tres anchos de columna estándar de Excel) y auto-ajustar la longitud de la caja para que se ajuste al texto? Gracias." // Acordado
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias por compartir esto. ¡De mucha ayuda!
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna forma de hacer que la línea desde el cuadro de comentarios hasta la celda sea más oscura o más ancha?
Este comentario fue minimizado por el moderador en el sitio
Hola Demondrew,
Disculpa te puedo ayudar en eso.
Este comentario fue minimizado por el moderador en el sitio
Supongo que Crystal nos desvió de la pista, la pregunta era: ¿Hay alguna forma de hacer que la línea desde el cuadro de comentarios hasta la celda sea más oscura o más gruesa? Esa sería la línea que rodea el cuadro de comentarios. TIA DD
Este comentario fue minimizado por el moderador en el sitio
¡increíble! gracias, la primera forma funciona! me ahorró horas de trabajo!
Este comentario fue minimizado por el moderador en el sitio
No funciona, el módulo de inserción no aparece
Este comentario fue minimizado por el moderador en el sitio
Buen día,

Salvou de mais! Após abrir planilha no celular todos los comentarios ficaram desajustados no pc.
Tinha mais de 10 mil commentarios pra arrumar o tamanho da caixa! ¡Se tivesse pix eu até pagava! Obrigado.
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL