Могу продолжить цитатой:  
Зачем учить географию - извозчик всюду довезёт...  
Зачем учить таблицу умножения - есть калькуляторы...  
Зачем...другими словами: разводить флуд если не можешь ответить

Хорошо, что нашли, только зачем в двух темах размещать вопрос?

{quote}{login=}{date=20.06.2012 01:55}{thema=}{post}а смысл? проще в watch window все посмотреть{/post}{/quote}  
вот как раз проще взять и рекурсией все вложенные объекты/сва-ва собрать и вывести их туда, куда нужно  
 
\пример с массивом массивов  
 
p.s.: как-то сложно получилось...  
 
Sub io()  
   Dim arr() As Variant  
   Dim col As Collection  
     
   arr = Array(1, _  
             Array(2, _  
                 Array(3, _  
                     Array(4) _  
                 ) _  
             ) _  
         )  
 
   Set col = ForIn(arr)  
   Stop  
End Sub  
 
 
Function ForIn(ByRef arr As Variant) As Collection  
   Dim elem As Variant  
   Static depth As Integer  
   Static col As New Collection  
     
   For Each elem In arr  
       If IsArray(elem) Then  
           depth = depth + 1  
           ForIn (elem)  
       Else  
           col.Add elem  
       End If  
   Next  
     
   depth = depth - 1  
     
   If depth = -1 Then  
       Set ForIn = col  
       Set col = Nothing  
       depth = 0  
   Else  
       Exit Function  
   End If  
End Function

nerv, спасибо за попытку помочь, но дело в том, что с рекурсией я знаком, но мне нужна не отвлечённая рекурсисия массива массивов, а именно как закрутить и вызвать процедуру с передачей ей нового параметра. Т.е    
ListProps ActiveChart выберет свойства ActiveChart  
Но потом перебрать все объёкты. Например ActiveChart.Legend и выбрать его свойства.  
А  глубже есть объект ActiveChart.Legend.Format.Fill надо выбрать и его свойства.  
И ещё может быть до 10 слоёв точек (а может и не быть)