VBA: Elementos seleccionados de un ListBox en Excel.

Continuando con el post anterior, en el que vimos cómo contar el número de elementos seleccionados en un ListBox, hoy veremos como identificar estos elementos; lo que haremos añadiéndolos a una Matriz-Array.
El trabajo consistirá en Redimensionar nuestra matriz de acuedo al número de elementos seleccionados, para luego recorrer todos los elementos del ListBox, comprobando cuáles están Seleccionados, en este caso, lo añadiremos como item de nuestra matriz-Array redimenensionada.
A continuación del código de la entrada anterior ,insertaremos en la Hoja1 (en la hoja donde se encuentre nuestro ListBox) del Explorador de proyectos del Editor de VBA el siguiente código, formando nuestra macro de Excel, con un evento click, quedando:

Private Sub CommandButton1_Click()
Dim lItem As Long, seleccionados As Integer
Dim MiMatriz() As Variant
'recorremos cada elemento del ListBox
For i = 0 To ListBox1.ListCount - 1
    'verificamos si está o no seleccionado
    'en caso afirmativo, acumulamos el contador
    If ListBox1.Selected(i) = True Then
        seleccionados = seleccionados + 1
    End If
Next i
'comprobamos que hay algún elemento seleccionado
If seleccionados = 0 Then
    MsgBox "Debes marcar al menos un cliente"
    Exit Sub
End If

'redefinimos la matriz con el número de items seleccionados
ReDim MiMatriz(1 To seleccionados, 1) As Variant
x = 1
'recorremos todos los elementos del Listbox
For lItem = 0 To ListBox1.ListCount - 1
    'en caso de que el elemento esté seleccionado
    'lo añadimos a una matriz
    'que luego emplearemos para comparar en el gráfico
    If ListBox1.Selected(lItem) = True Then
    'añadimos el item a la matriz redimensionada
    MiMatriz(x, 1) = ListBox1.List(lItem)
    'dejamos el Listbox sin selección
    ListBox1.Selected(lItem) = False
    x = x + 1
    End If
Next lItem
End Sub

Con este código hemos creado una matriz con los elementos seleccionados en el ListBox; con estos item de dicha matriz, posteriormente (en el post siguiente) formatearemos la serie de datos de nuestro gráfico, dando un color distinto a los Puntos coincidentes con los seleccionados.

El próximo y último post, incluiremos la última parte del código de VBA para Excel que recorrera los puntos que compornen la serie, hasta encontrar los ocincidentes con los item seleccionados...