Καλημέρα,

σε προηγούμενη δημοσίευση, με τη βοήθεια του χρήστη manosB, είχα καταλλήξει πως αν σε ένα Excel αρχείο υπάρχει ένα control από το ToolBar Control ToolBox, τότε μπορεί κανείς να διαβάσει την τιμή του ως εξής (xlSht το Sheet του Excel αρχείου):

xlSht.OLEObjects(i).object.Value

Τι γίνεται όμως όταν αυτό το control είναι ListBox και είναι ενεργοποιημένο το multiselection ; Τότε το .Value δεν έχει νόημα.
Έχω βρει τον τρόπο να δεις αν η πολλαπλή επιλογή είναι ενργή:

If xlSht.OLEObjects(i).object.multiselect > 0 Then
MsgBox("multiselection ON")
End If

Δεν έχω καταφέρει ωστόσο να βρω τρόπο να προσπελάσω το array των items. Τα .items και .selecteditems κτλ δε λειτουργούν. Δεν τα δέχεται καν. Επίσης όλες οι δοκιμές μου για casting έχουν πέσει στο κενό. Επίσης, το ίδιο πρόβλημα παρουσιάζεται και στην περίπτωση που το ListBox είναι από το ToolBar Forms, οπότε και το αντίστοιχο object είναι το:

xlSht.ListBoxes(i).object

Αν ξέρει κάποιος τη λύση, παρακαλώ ας τη δημοσιεύσει.
Ευχαριστώ εκ των προτέρων