Sapere quante Listbox sono presenti nel foglio

[templare77]

Salve ragazzi,
ho sei diversi fogli. in ognuno di essi ci sono delle Listbox, il numero varia.

Vorrei sapere se tramite codice VBA, c'è la possibilità di contare per ogni foglio, il numero di Listbox presenti e poter impostare dei parametri per ognuna di esse. Io pensavo ad un doopio ciclo For each di questo tipo:

For each foglio in Application.Worksheets

For each listbox in foglio.(??????????)

qui vorrei per esempio impostare la proprietà Width per ogni listbox presente

next listbox


next foglio

Vi ringrazio!

[Anthony47]

Sono listbox inseriti direttamente sul foglio o all'interno di userform? Se direttamente sul foglio, sono di tipo "Modulo" o "ActiveX"? Pensi sia possibile usare direttamente il "nome" (perche' e' rimasto quello standard, quindi contenente esplicito riferimento al tipo di controllo; es CasellaDiRiepilogo1", "ListBox1") o sono stati modificati?

Ciao

[templare77]

Ciao Anthony e come sempre Grazie per il celere interessamento!
Sono list box che ho inserito manualmente nei foglio e sono di tipo ActiveX. I nomi sono sequenziali: in ogni foglio si parte da ListBox1 fino ad arrivare a ListBox iesimo (un foglio ne può avere 5.... un altro 8 ecc)

[templare77]

Ciao Anthony! A mente fresca ho girato un pò in rete ed ho trovato quello che fa al caso mio

Codice: Seleziona tutto

Dim oleObj As OLEObject
     
     For Each oleObj In Worksheets("Italia").OLEObjects
          If TypeOf oleObj.Object Is MSForms.ListBox Then
               'do stuff
                oleObj.Object.Clear
          End If
     Next oleObj

Sembra funzionare, se ho qualche problema ti disturberò ancora