Объект Subprojects (Project)
Содержит коллекцию объектов Subproject .
Свойства
| Имя |
|---|
| Application |
| Count |
| Item |
| Parent |
Примеры
Использование объекта коллекции Subprojects
Используйте подпроекты (index), где index — это индекс подпроекта или имя суммарной задачи проекта, чтобы вернуть один объект Subproject . В следующем примере изменения, внесенные в указанный подпроект в главном проекте, не будут автоматически вноситься в исходный проект.
ActiveProject.Subprojects("Arcadia Bay Online Catalog Plan").LinkToSource = False
Получение объекта коллекции Subprojects
Используйте свойство Subprojects , чтобы вернуть коллекцию Subprojects . В следующем примере пользователь предупреждает, если какой-либо из подпроектов в активном проекте не находятся на жестком диске.
Dim SubProj As Subproject
For Each SubProj in ActiveProject.Subprojects
If UCase(Left$(SubProj.Path, 1)) <> "C" Then
MsgBox Right$(SubProj.Path, InStrRev(SubProj.Path, "\") - 1) & _
" is not on your local hard disk.", vbExclamation
End If
Next SubProj
Примечание.
Если добавить в проект два подпроекта с одинаковым именем, он станет статическим объектом и не будет предоставлять сведения о дополнительных подпроектах, добавленных в проект. Это продолжается в течение всего срока существования файла проекта, даже если один из подпроектов с аналогичным именем удаляется.
Это можно сделать, создав копию одного из подпроектов проекта, поместив ее в другую папку, а затем снова добавив в проект. Подпроекты не будут сообщать о новом проекте или предоставлять сведения о каких-либо подпроектах, которые добавляются в этот проект.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.