Excel VBA ComboBox DropDown Tamaño del botón - cambió a sí mismo
Tengo un libro de trabajo con varios cuadros combinados (y cuadros de lista) y muchos vba escritos alrededor de ellos. He usado el mismo código en el procedimiento Workbook_Open para formatearlos durante semanas, sin mayores problemas.
La noche pasada, me acerqué remotamente a mi computadora de trabajo (por segunda vez) para editar algunas otras partes del código (nada que tocara las propiedades de la caja). En un momento después de un tiempo, el formato de todos los cuadros, listas y combo, se volvió loco. Las barras de desplazamiento del lado derecho en los cuadros de lista se volvieron enormes, y también aparecieron enormes barras de desplazamiento en la parte inferior. Y el botón desplegable en los cuadros combinados también se hizo enorme, tan ancho como el cuadr
Cerré y volví a abrir Excel, y todos los cuadros volvieron a su estado feliz anterior, excepto uno, que todavía tiene un botón desplegable tan ancho como el cuadro. Mi código de formato vba no ayuda. Reiniciar la computadora no ayuda. Comparé la ventana de propiedades de dos cuadros que deberían ser idénticos (excepto el nombre y la posición izquierda), y allí no hay nada diferente.
Entonces, ¿hay alguna forma de domar, reiniciar o controlar este botón desplegable renegado? Desearía ni siquiera estar en Excel tratando con este tipo de comportamiento impredecible, pero estoy atascado.
Aquí está mi vba de formato:
With ThisWorkbook.Sheets(c_stMatrixSheet).OLEObjects(c_stMatrixTypeBox)
.Width = 120
.Top = 14
.Left = 878
Call FormatComboBox(.Object)
.Object.AddItem c_stAMatrix
.Object.AddItem c_stBMatrix
.Object.AddItem c_stCMatrix
.Object.Text = c_stAMatrix
End With
...
Private Sub FormatComboBox(bxComboBox As msforms.ComboBox)
With bxComboBox
.Clear
.Height = 19.5
.Font.Name = c_stDropBoxFont
.Font.Size = 10
.AutoSize = False
.Enabled = True
.Locked = False
.Placement = xlFreeFloating
End With
End Sub