El tamaño de la fuente en estas listas está definido por defecto y no puede ser cambiado. Esto genera dos problemas:
1 – Algunos de los valores de la lista desplegable aparecen “cortados”
2 – Si el zoom de la hoja está por debajo del 100%, los valores puede llegar a ser casi ilegibles
En esta nota mostraré dos estrategias para solucionar estos problemas:
1 – usar eventos para cambiar el ancho de la columna que contiene la celda con la validación de datos y el nivel de zoom de la hoja;
2 – usar una combobox de la colección de controles ActiveX.
Partimos de esta situación donde tenemos una lista de departamentos de una empresa, que hemos incluido en el nombre definido “lstDepartamentos” y una lista desplegable en la celda E2. Las columnas A, B y C nos sirven como columnas auxiliares y en aplicaciones prácticas estarán ocultas. EL nivel de zoom es 80%
Solución con un evento simple.
La estrategia es programar un evento de manera que cuando el usuario seleccione la celda que contiene la lista (E2), el ancho de la columna E pase a ser 30 (antes del evento es 15) y el zoom será del 120%. Al seleccionar cualquier celda fuera de E2, el zoom vuelve a ser del 80% y el ancho de la columna 15.
En el módulo de la hoja correspondiente ponemos este código
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$2" Then
ActiveWindow.Zoom = 120
Range("E2").ColumnWidth = 30
Else
Range("E2").ColumnWidth = 15
ActiveWindow.Zoom = 80
End If
End Sub
Solución con evento complejo
La estrategia es la misma que en la solución anterior, pero el ancho de la columna será fijado dinámicamente de acuerdo al valor de la lista más largo. Para esto creamos una función UDF (definida por el usuario) para determinar este valor y lo pasamos al código del evento
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColWidth As Double
'
iColWidth = max_len_in_range(Range("lstDepartamentos"))
If Target.Address = "$E$2" Then
ActiveWindow.Zoom = 120
Target.ColumnWidth = iColWidth
Else
ActiveWindow.Zoom = 80
Range("E2").ColumnWidth = 15
End If
End Sub
Private Function max_len_in_range(rngList As Range)
Dim iR As Long
Dim tmpLen As Integer
For iR = 2 To rngList.Count
If Len(rngList(iR)) > Len(rngList(iR - 1)) Then
tmpLen = Len(rngList(iR))
End If
Next iR
max_len_in_range = tmpLen
End Function
Solución con ComboBox de la colección ActiveX
La ventaja de los controles ActiveX es que sus propiedades y sus eventos pueden ser programados. Esto nos permite “detectar” cuando el usuario activa el control y también cuando lo desactiva. Programamos un evento para cada una de las situaciones:
Private Sub ComboBox1_GotFocus()
ActiveWindow.Zoom = 120
Application.EnableEvents = False
Me.Select
Application.EnableEvents = True
End Sub
Private Sub ComboBox1_LostFocus()
ActiveWindow.Zoom = 80
End Sub
Los códigos hay que ponerlos en el módulo de la hoja correspondiente.
El archivo con los ejemplos se puede descargar aquí.
