Вопрос в теме
Программно перебрать и распечатать в Debug.Print все свойства объёкта ChartObject
20.06.2012 11:57:36
|
|
|
|
20.06.2012 13:55:08
а смысл? проще в watch window все посмотреть
|
|
|
|
21.06.2012 17:09:26
Хорошо, что нашли, только зачем в двух темах размещать вопрос?
|
|
|
|
21.06.2012 18:51:40
{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
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук |
|
|
|
21.06.2012 19:06:53
\чуть проще
Sub io() Dim arr() As Variant Dim col As New Collection arr = Array(1, _ Array(2, _ Array(3, _ Array(4) _ ) _ ) _ ) Call ForIn(arr, col) Stop End Sub Sub ForIn(ByRef arr As Variant, ByRef col As Collection) Dim elem As Variant For Each elem In arr If IsArray(elem) Then Call ForIn(elem, col) Exit Sub Else col.Add elem End If Next End Sub \оформил здесь 10017
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук |
|
|
|
23.06.2012 23:09:59
Alex77755, если IsObject() копать глубже.
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук |
|
|
|