Crear un ListBox con Macros (VBA)

Ya que he iniciado a postear las preguntas que me han hecho acerca de los ListBox, en esta entrada les comparto un código para incrustar un Listbox en una hoja de Excel con Macros.

El código se debe de almacenar en un módulo estándar para que funcione a la perfección.

Descarguen el Libro de Ejemplo para que puedan observar cómo funciona y lo puedan adaptar fácilmente.

Descargar Ejemplo

Código VBA:

'****************************************'
' Email: obed.cruz@exceltrabajaporti.com '
' www.exceltrabajaporti.com              '
'****************************************'
Option Explicit

Sub CrearListBox()
  With ActiveSheet
    .OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _
         DisplayAsIcon:=False, Left:=400, Top:=50, _
         Width:=250, Height:=196.5).Select
    .OLEObjects("ListBox1").Object.BackColor = RGB(221, 242, 255)
    
    With .OLEObjects("ListBox1").Object
      .AddItem "Adi y Rudolp  Dassier - Fundadores de Adidas y Puma."
      .AddItem "Enzo Ferrari - Fundador del Imperio de la Velocidad."
      .AddItem "Richard Brandson - El millonario hippie."
      .AddItem "Steve Jobs y Steven Wozniak - Fundadores Apple."
      .AddItem "Larry Ellison - Oracle."
      .AddItem "Mark Zuckerberg - Agregar a mis Amigos."
      .AddItem "McDonald's - Un combo de sabor y millones de USD."
    End With
    
  End With
End Sub

Crear un ListBox con Macros (VBA)

Facil y rapido

Soporte

Reportes