vba рекурсивный просмотр дерева.vba

vba-Рекурсивный просмотр дерева.vba

'просматриваем рекурсивно дерево и отменяем выделение узлов
Private Sub TraverseTreeDroppingFilter(ByVal objNode As Node)    'входной параметр узел
    Dim objSiblingNode As Node
    Set objSiblingNode = objNode
    Do
        objSiblingNode.Checked = False
        If objSiblingNode.Key <> "0_id_root" Then objSiblingNode.Expanded = False
        If Not objSiblingNode.Child Is Nothing Then 'если есть дети, тогда получаем первого ребенка
            Call TraverseTreeDroppingFilter(objSiblingNode.Child)
        End If
        Set objSiblingNode = objSiblingNode.Next    'перемещение по уровню
    Loop While Not objSiblingNode Is Nothing
End Sub