Un lector me consulta sobre cómo cambiar de una el tamaño de todos los comentarios en una celda. En su caso se debe a que cada comentario tiene un tamaño distinto, pero también puede darse el caso de querer cambiar todos los comentarios del tamaño estándar a otro.
La selección multiple de cuadros de texto la hacemos apuntando con el mouse usando la tecla Shift (Mayúsculas)
Pero no podemos hacer lo mismo con los comentarios. Por lo tanto tendremos que echar mano a las macros.
Empezamos con una macro sencilla que selecciona todos los comentarios en la hoja activa y les da un tamaño (altura y ancho) determinado
Sub cambiar_dimension_comentario_1()
Dim shComment As Comment
For Each shComment In ActiveSheet.Comments
With shComment
.Shape.Width = 108
.Shape.Height = 82
End With
Next shComment
End Sub
Mis atentos lectores habrán notado que en el cuadro de propiedades (la primer imagen del post) la altura y el ancho del comentario aparecen en centímetros, mientras que en el código de la macro usamos otra unidad. El tamaño del cuadro del comentario, y de todas las formas, la expresamos en Vba en "puntos".
En una pulgada, 2.54 centímetros, hay 72 puntos. Para convertir las dimensiones de centímetros a puntos, a los efectos de usarlas en la macro, tenemos que dividir la dimension en centímetros por 2.54 y multiplicar el resultado por 72.
Así que vamos a mostrar una macro más elaborada donde el usuario ingresa las medidas deseadas en centímetros y el código las traduce a "puntos":
Sub cambiar_dimension_comentario_2()
Dim shComment As Comment
Dim dblShW As Double
Dim dblShH As Double
dblShW = InputBox("Ancho en centimetros?", "Dimensiones del Comentario")
dblShH = InputBox("Altura en centimetros?", "Dimensiones del Comentario")
For Each shComment In ActiveSheet.Comments
With shComment
.Shape.Width = dblShW * (72 / 2.54)
.Shape.Height = dblShH * (72 / 2.54)
End With
Next shComment
End Sub
En esta macro usamos InputBox sin validación de los valores introducidos, así que deberemos ser cuidadosos de ingresar números reales (Actualización: una versión mejorada está disponible en este post).
Este video muestro el funcionamiento de la macro.