Объект Subprojects (Project)

Содержит коллекцию объектов Subproject .

Свойства

Имя
Application
Count
Item
Parent

Примеры

Использование объекта коллекции Subprojects

Используйте подпроекты (index), где index — это индекс подпроекта или имя суммарной задачи проекта, чтобы вернуть один объект Subproject . В следующем примере изменения, внесенные в указанный подпроект в проекте master, не будут автоматически вноситься в исходный проект.

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

Примечание.

Если добавить в проект два подпроекта с одинаковым именем, он станет статическим объектом и не будет предоставлять сведения о дополнительных подпроектах, добавленных в проект. Это продолжается в течение всего срока существования файла проекта, даже если один из подпроектов с аналогичным именем удаляется.

Это можно сделать, создав копию одного из подпроектов проекта, поместив ее в другую папку, а затем снова добавив в проект. Подпроекты не будут сообщать о новом проекте или предоставлять сведения о каких-либо подпроектах, которые добавляются в этот проект.

См. также

• Объектная модель Project

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.