Visual Basic para Aplicaciones - Listbox desde codigo. Como hacerlo?

Life is soft - evento anual de software empresarial
   
Vista:

Listbox desde codigo. Como hacerlo?

Publicado por Ximo (1 intervención) el 02/12/2008 22:35:41
Hola, queria preguntar si es posible crear un Listbox o Combobox desde codigo y asignarlo a una celda determinada. Y para llenar esta lista quiero que se llene con los elementos de un array.
Esto es posible, porque no lo consigo hacer.

He copiado el codigo que genera el excel cuando grabas una macro pero no puedo llenarla. Luego tambien tengo el unico codigo que he encontrado en la red pero tampoco lo hago funcionar.

Estos son los codigos que intento acoplar y no los hago ir

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$7"), , xlNo).Name = "Lista7"

y este

xlListado.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False,
DisplayAsIcon:=False, Width:=38.25, Height _
:=15).Select

Me podeis guiar un poco???

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:Listbox desde codigo. Como hacerlo?

Publicado por JuanC (431 intervenciones) el 04/12/2008 13:30:22
la segunda opción funciona
Sub test()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=20, Top:=20, Width:=38.25, Height:=15).Select
Selection.LinkedCell = "A2"
Selection.ListFillRange = "B1:B10"
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:Listbox desde codigo. Como hacerlo?

Publicado por JuanC (431 intervenciones) el 04/12/2008 13:30:24
la segunda opción funciona
Sub test()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=20, Top:=20, Width:=38.25, Height:=15).Select
Selection.LinkedCell = "A2"
Selection.ListFillRange = "B1:B10"
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar