Свойство Project.OutlineChildren (Project)
Возвращает коллекцию Tasks, представляющую дочерние элементы задачи в структуре структуры структуры. Задачи только для чтения.
Синтаксис
выражение. OutlineChildren
Выражение Переменная, представляющая объект Project .
Пример
В следующем примере отображаются имена всех задач на том же уровне структуры, что и выбранная задача.
Sub Siblings()
Dim MyParent As Task
Dim Sibling As Task
Dim Temp As String
Set MyParent = ActiveCell.Task.OutlineParent
For Each Sibling In MyParent.OutlineChildren
Temp = Sibling.Name & ListSeparator & " " & Temp
Next Sibling
Temp = Left$(Temp, Len(Temp) - Len(ListSeparator & " "))
MsgBox Temp
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.