Ancho de cada columna en un ComboBox de varias columnas

10/04/2007 - 02:44 por Insumos | Informe spam
Gente del foro:

Tengo un Combobox que tiene 3 columnas. En cada columna se incorporan
registros de una tabla, como por ejemplo:

1 Córdoba A, XXXX $ 2,000.00
2 Buenos Aires Unicenter UUUUU $ 9,502,50
3 Mar del Plata Shopping LG YYYY $ 7,801,00
...

Mediante una macro se incorporan los registros en 3 columnas dentro del
ComboBox1. Ahora, todas las columnas del combobox son del mismo ancho y como
veran no todos los datos necesitan el mismo ancho, porque me quedan los
datos de la primer columna en un ancho excesivamente grande y los de la
segunda demasiado corto y queda incomodo visualmente a la hora de elegir una
opción. La macro con que incorpra los datos al combobox es esta:

Private Sub ComboBox1_Enter()
Me.ComboBox1.ColumnCount = 3
Dim wksH As Worksheet
Dim lngMáxFila As Long, i As Long, mtr()


Set wksH = ThisWorkbook.Worksheets("Parametros")


lngMáxFila = Application.WorksheetFunction.Max _
(wksH.Range("A65536").End(xlUp).Row, _
wksH.Range("B65536").End(xlUp).Row, _
wksH.Range("C65536").End(xlUp).Row)
ReDim mtr(1 To lngMáxFila, 1 To 3)


For i = 1 To lngMáxFila
mtr(i, 1) = wksH.Cells(i, 3).Value
mtr(i, 2) = wksH.Cells(i, 2).Value
mtr(i, 3) = wksH.Cells(i, 1).Value
Next i


Me.ComboBox1.List = mtr


Set wksH = Nothing
End Sub

Como se hace para especificar el ancho de cada columna dentro del combobox?
Desde ya muchas gracias!!

CONTADURIA
 

Leer las respuestas

#1 Ivan
10/04/2007 - 03:47 | Informe spam
hola,

echale un ojo a la propiedad ColumnWidths del combo. Puedes
establecerlo bien en el propio cuadro de propiedades, bien en el
propio codigo

espero te ayude
un saludo
Ivan

Preguntas similares